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1. ABSTRACT 
This Diagnostic was designed to test RSO3 and RS04 drives. 
The CERSB Disk Data Test is a series of address and data reliability 
routines which verify to the user that the controller (RH70) and the 
disks (RSO3 or RSO4) are operating correctly. This test should be 
used in conjunction with the DERSA diagnostic. 
NOTE 
This program will destroy all data on 


the disks. Turn off ail drives that you 
do not want to test. 


2. REQUIREMENTS 


2.1 Equipment 


PDP11 standard computer with a minimum of 8K of memory, and an RH70 
controiler with an RSO3 or an RSO4 disk. 


2.2 Preliminary Programs 
DZRSA 


3. LOADING PROCEDURE 


Use Standard procedure for ABS tapes. 
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4. STARTING PROCEDURE 


4.1 Control Switch Settings 
See 5.1 (all down for worst case testing) 
4.2 Starting Address 
Program and/or operator action 
Load program into memory using ABS loader. 
1. Starting address 200. 
A. Set switches (see sec 5.1). All down for worst case 
B. The —— on the 11/45 will show the iteration count in 
the left byte and test number in the right. To use, set 
the data display switch to the display position. 
(. Press start. 
The | dae will now map the data buffers in 4K segments on -A- port 
for all memory It will then type out the parameters of the data 
buffers. The — will only do this the first time it is started, 
tor it stores these addresses and continues using them. To have the 
program remap the system, the program must be reloaded. All of memory 


will be tested. You may enter conversation mode and put data buffer 
where you wish and what ever size you wish. 


SEQ 0004 
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5S. OPERATIONAL SWITCH SETTINGS 
Switch Settings Are: 
SwW<15> 
SW<14> 


Sw<13> 
SwW<12> 


i 


WITH THIS SWITCH SET, " 
PROGRAM WILL NOT COMPARE THE 
DATA IT READ FROM THE DISK WITH 
oa KNOWN GOOD DATA. 

T ON COMPLETION i TRANSFER 
ENTER CONVERSATION MODE 
LOOP ON ERROR 
WAIT IN WAIT MODE 
PROGRAM RUNS IN A BACKGROUND TEST 
WHILE WAITING FOR INTERRUPT, WITH 
SW SET PROGRAM WAITS IN A WAIT 
INSTRUCTION. 
OPTIONAL TYPEOUT OF RETRY ERRORS 
INHIBIT PASS COUNT 
ALLOWS 8 ERROR TYPEOUTS IN THE 
COMPARE ROUTINE BEFORE EXECUTING NEXT READ 
COMMAND. WHEN SWITCH IS 0, ONLY 71 ERROR 
TYPEOUT IS RECORDED. 
TYPEOUT # OF ERRORS 
INHIBIT MEMORY MANAGEMENT 
DATA TEST ONLY 
DROPS DRIVE AFTER 20 ERRORS 


Sw<11> 
Sw<i0> 
Sw<09> 
Sw<07> 
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5.1 Data Reliability Test Mode 


with SW8 set, the program will set the 'BAI"’ bit in RHCS2 and transfer 
64K of data at a time for all patterns except random. Random will be 
executed as usual with standard buffers. No compares are done in this 
of operation except on random patterns. This option should only 
be used in data test or conversation mode. When used in conversation 
mode it over rides the non standard word count. You should not select 
a desired disk address in conversation mode for it can produce a_ disk 
address overflow error tor this data reliability test mode only does 
64K word transfers. If Sw8 is eet. while the program is running, 
the program will finish its pass before executing the switch change. 


5.2 Conversation Mode for Program Parameters for Data Test Only 


In conversation mode the operator can soecify any one or all of the 
program parameters. 


NOTE 


Once in conversation mode, the only way 
to remap the system is to reload the 
program. To restart the program in 
conversation mode without having to 
reanswer the questions, the starting 
address is 210. Reset switch 10. To 


restart the program without having to 
reanswer the port sizing questions, 
restart at 220. Reset switch 10. 
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The program will now ask several questions, the table below wilt help 
yOu answer the questions. 


TYPE TO oO AT TYPE TO START AT 


0 00 
1 020000 20 400000 
2 040000 2] 420000 
3 060600 22 440000 
4 00 23 460000 
5 120000 24 500000 
6 140000 25 520900 
7 160000 26 540000 
10 00 27 560000 
11 00 30 00 
12 240000 31 620000 
13 260000 32 640000 
14 00 33 660000 
15 320000 34 700000 
16 340000 35 720000 
17 360000 36 740000 
. 760000 


TYPE TO START AT TYPE TO START AT 
40 1000000 60 


00 1400000 
41 1020000 61 14200000 
42 1040000 62 1440000 
43 106000: 63 1460000 
44 1100000 64 1500000 
45 1120000 65 1520000 
46 1140000 66 1549000 
47 1160000 67 1560000 
50 1200000 70 1600000 
51 1220000 71 1620000 
52 1240000 72 1640000 
53 1260000 73 1660000 
54 1300 74 1700000 
55 1320000 75 1720000 
56 1340000 76 1740000 
57 1360000 77 1760000 
TYPE TO START AT TYPE TO START AT 
100 200000 120 2500000 
104 2020000 121 25200000 
102 2040000 39122 2540000 
103 2060000 123 2560000 
104 2200000 124 2600000 
105 2220000 125 2620000 
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& 


2640000 
2660000 


Dee ial ee ae ae ed ed eed 
3 YS 1 OC 
NOME WN On 
ed oD ced ced ceed cand ened ce od cod 
WIWIWWNWWNWWWINn 
NOUEWN ONO 


2460000 3060000 


NOTE:The formula to get numbers 
_to be typed is: Every 4Kboundry end 
_ in four zeros iE 
so disregard the last four digits and 
eS divid the remaining. 
address by two. The resulting number is 
to be typed in for 
that 4K 
bank. 
NOTE : Type only numbers shown!!! 


1. Type starting 4K bank #4 for data buffer on port A 


This will determine where your buffer area will start on -A- 
port. Use table above 


NOTE: 
Program is located in Ist 4K bank. 


Therefore, this bank can not be used as 
a buffer. 
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EXAMPLE : 


ne 16K 
xX BANK 3 X 
x x 
XXXXMXXXXMKK 12K 
xX x 
x BANK 2 X 
x x 
KXXKXKXXXXXMK Br 

KKK KKK x xX 

x x X BANK 7 X 

xX CPU X BK XXX MXM x x 

x x XMEMX X RH X XMXXAXXKKY MK 

KKK KKK QO XXXXX XXX X ‘i 

x x BANK u 


X X 
X=A-PORT X PROGRAM x 


x x 
YX KICK KCK OOO X AXA 


These answers given below will test the configuration in the 
given example. Answers: 


To Test -A=- port 
1) 1 
29-4 
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Program Conversation 
MULTI DRIVE MODE? (YES-NO) 


Multi disk mode is a mode in the a which allows the 
operator to exercise all the disks on the system without 
re-starting the program. The program, after eres one 
disk will report a message telling the operator which disk 
will be selected next, and then the program will exercise 
that disk. When a complete pass is accomplished, a pass 
complete will be reported and the test will recycie 


If the answer to the multi drive mode was ‘NO'', the following 
question is asked. 


TYPE UNIT # 


The operator can now select the unit he wishes to test by 
typing the unit number. 


OPTIONAL WORD COUNT (YES=NO) 


If the operator answers ‘NO'' to this question the next 
question will be deleted from the conversation. 


WD CT 


The operator can specify ~~ length transfer from 1(8). 
t 


The normal transfer Len is n(8) words 
where n is the maximum buffer size for the available core. 


This program maps the system in 4K segments. If there is a 
1K block of memory on the _ system that you would Like to 
ag can type in that 4K bank # and then specify a we 
fe) 


If the word count number typed, is larger than the core size 
given in the setup routine, the question will be repeated. 


OPTIONAL DSK ADDR (YES-NO) 


If the answer to this question is no, the whole disk will be 
written and the next question is not asked. 


DSK ADDR 


The operator can now specify the starting sector 
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DATA PATTERN NO. ? 


If no optionai data pattern is requested (422) the program 
will execute the following List of data patterns. 


PATTERN 


Random data 
Run ail data patterns under 
program control 


HUH nn nn nnn a 


MH ONADOEWWRH-ONOUS WR 


Nonny 2 Sm oa oo 


In this section of the program parameter conversation mode, 
the operator can select any one or all three of the control 


functions to be executed. The normal sequence of disk 
functions under program control are WRITE, WRITE CHECK, and 
then READ. By entering the conversation mode the operator 
has gained complete control over the disk functions. He must 
specify yes or no to all of the following questions. 


WRITE? (YES = NO) 
READ? (YES = NO) 
WRITE CHECK? (YES = NO) 


To perform a WRITE CHECK only, the operator must first write 
some known data on the disk. This course of action also 
prevails for a READ or.ly operation. ; 

* If an error occurs in ~~ Line ill _gpereter is typing, 
depress the rub-out ney on d retype ans 

ALL ANSWERS SHOULD BE FOLLOWED BY A CARR [AGERE TURN 


5.3 Routine Abstracts 
ADDRESS TEST 


This test writes each sector with its own address then reads it back 
and comnmares it for the correct data. 


SEQ 0011 
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RANEX = Random data, address and word count test 


This routine tests the ability of the system to access random 
addresses with random data. Two sectors of random data are written at 
a starting random address on the disk. It is then write checked and 
read. All errors are reported. This is repeated 1000 times. 


DATA RELIABILITY = data pattern test 


In this portion of the test, the reliability of the disk surface is 
tested by WRITE, WRITE CHECK, and READ functions. The routine first 
writes the complete surface with a set data pattern, then a_ write 
check of the complete surface is accomplished, thus reporting all 
errors between the data written and the data in memory. The disk is 
then read. The data read from the disk is compared against the known 
data pattern. This compare is taking place the same time the disk is 
being read. The buffer is cleared as it is being compared. 


5.4 Subroutine Abstracts 

5.4.1 SCOPE 

This subroutine call is placed between eacn subtest in the instruction 
section. It records, the starting address of each subtest as it is 
being entered in location "LAD’’. If a scope loop is requested, the 
currert subtest will be looped upon. The contents of LAD may be used 
to determine the last subtest successfully completed. 


5.4.2 HLT 


This routine prints out an error message (See 6.1). To inhibit 
typeouts, put SW<13> on a 1. ; 


5.4.3 TRAPCATCHER 


A *',+2°* = "HALT’’ sequence is repeated from 0 =- 776 to catch an 
unexpected traps. Thus any unexpected traps or interrupts will HAL 
at the vector + 2 


SEQ 0012 
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6. ERRORS 


6.1 Error Printout 
The format is as follows: 


ADR ($1 = ===== ($2 = ====- ER 
GOOD , -= ===== BAD = ----- 


Where: 

CS1,CS2,ER etc. RS11 Disk Registers. 

Good ‘ Expected Data. 

Bad Data Received. 
To find the failing test, look at the Listing above the address typed. 
If SWO is set, a drive will be dropped from the test sequence after 20 
errors. The program will state which drive was dropped and on which 
pass it was dropped. If all the drives have been dropped, the program 


will type ‘TESTING UNIT 0°’ and HALT’', indicating that it could not 
find any more drives on the system to test. 


7. RESTRICTIONS 
None 


8. MISCELLANEOUS 


8.1 Execution Time 


Pass complete will be typed out at end of pass. It will take between 


15 to 20 minutes to complete a pass. add 30 seconds for each 4K. for 


Gata test. 


8.2 Stack Pointer 
Stack is initially set to 500 


SEQ 0013 
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8.3 Power Fai 


The starting address for the write Power Fail ‘est is 270. A message 
wili be typed out “‘load Sw with unit # and cont."’ The cperator now has 
to load the unit # in octal into the Sw register in bits 00-01 and 02. 
Then hit continue. The program will tell the operator when to power 
down. when the system is powered up, only one error is allowed. The 
Starting address tor the writecheck Power Fail Test is 274. Here as 
in the Write Power Fail Test, the program wili tell the operator when 
to power down. when the power comes back, no errors should occur. 


SEQ 0014 





cs 
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CERSBC.P11 


Vos waters 
=[ODDNAUSWN-"OVDONOUSWr= 


001234 


000500 
003176 


000500 
002322 


015142 


003252 


005130 


012334 
012670 


SWITCH 


@ABEGIN 


#500,SP 
@FADTST 


#500, SP 
FA) 


@ARLDR 


@AADTL 


@ARANEL 


@APFT 
@APF IT 2 


-TITLE CERSB=-C RH70-RS03 DATA AND RELIABILITY TEST 
;COPYRIGHT 1973,1974,1975, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 
PROGRAM BY STANLEY HARACKIEWICZ 


SHALT ON ERROR 
SLOOP ON FUNCTION 
: INHIBIT ERROR TYPEOUTS 
Loony a COMPAR I SON 
T_ON COMPLETION OF TRANSFER 
: CONVERSATION MODE 
[LOOP ON ERROR 


WAIT _IN BACKGROUND TEST 
;OPTIONAL TYPEOUT OF RETRY rw 
2 INHIBIT PASS COUNT AND UNIT 
;ALLOWS 8 LOCATIONS TO BE TESTED IN COMPARE ROUTINE 
STYPE OUT TOTAL # OF ERRORS 
; INHIBIT ey MANAGEMENT 
[DATA TEST ONLY 
[DROP DRIVE AFTER 20 ERRORS 
; TRAP CATCHER FROM 0 - 776 
HOOKS FOR ACT 11 


START TEST 


SETUP STACK 
RESTART ADDR 


CONVERSATION MODE WITHOUT 
DATA BUFFER QUESTIONS 


RESTORE LOADER 


TRACK AND SECTOR SELECT TEST 
WRITE EACH WORD ADDR ON ITSELF AND READ IT BACK 


LOCATION 1150 CONTAINS UNIT NO 


:RANDOM ADDRESS, DATA TEST 
;LOCATION 1150 CONTAINS UNIT NO. 


:DISK WRITE POWER FAIL TEST 
sDISK WRITE CHECK POWER FAIL TEST 


SEQ 0015 
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CERSBC.P11 14-AUG-78 08:29 
3RH70 DATA PATTERNS 


13333 
RANDOM DATA 


CLEAR ALL REGISTERS 
012777 000040 000464 ‘<CLRDV: MOV #40,aRSCS2 
013777 001164 000456 MOV UNNUM, ARSCS2 
000002 RT] 


;CLEAR ALL REG 
GET UNIT # 


SEQ 0016 
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» SBTTL SKMMR = KERNAL MEMORY MANAGEMENT REGISTER ASSIGNMENTS 
SRO=177572 ADDRESS OF MEM MGMT REGISTER i ‘ 


SR3=172516 “ADDRESS OF MEM MGMT REGISTER sR3 


K IPDRO=172300 sADDRESS OF KERNEL ‘I* PAGE 
DESCRIPTOR REGISTERS 


KIPDR7=172316 


KDPDRO=1 72320 sADDRESSES OF KERNEL ‘D' PAGE 
;DESCRIPTOR REGISTERS 


KDPDR7=172336 


K IPARO=172340 ADDRESSES OF KERNEL ‘I' PAGE 
ADRESS REGISTERS 


— at = ed ow 


KIPAR7=172356 


KDPARO=172360 zADDRESSES OF KERNEL ‘D* PAGE 
sADDRESS REGISTERS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


RD) SS 3 SS os ss SS 
ok ad ad ed wed ed od ed 


MOWNANAKRWR-O 


KDPAR7=172376 
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— 


: INITALIZE FOR NEWTST 
EMT :SET HLT TO a FOR ERROR TYPEOUTS 
177776 ; PROCESSOR STATUS 
P PROCESSOR STATUS WORD 
SWR= 177570 SWITCH REGISTER 
oe am :DISPLAY REGISTER 


;BELL 
:RO ~ DEFINE REGISTERS 


WROD OONAUEWI 


“RO - STACK POINTER 
;R7_= PROGRAM COUNTER 
[BIT EQUATES 


1 
1 
1 
1 
1 
1 
1 
1 
; 
; 
1 
: 
; 
= | 
1 
1 
; 
1 
1 


. :FOR GOOD DATA 
000000 = :FOR BAD DATA 
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000510 . 510 


005015 pesees 0 eASCIZ = <15><12>"'TIMED OUT NO INTERRUPT"’ 
044440 
052522 


—_ — 3 
VMNVYIVIWN 


SELARISSEMeY 


046412 MTRAP: .ASCIZ <15><12>'MEM MGMT TRAP" 
046507 
050101 


046012 LOADSW: .ASCIZ <15><12>"'LOAD SW WITH UNIT # AND CONT"' 


Oo 
N 


041440 047117 
040504 040524 DATA: .ASCIZ <15><12>'DATA *' 
051127 052111 WRTERR: .ASCIZ ‘WRITE ERR’ 
051105 000122 
051127 052111 WCKERR: .ASCIZ ‘WRITE CK ERR" 
045503 042440 
000 
122 040505 RDERR: .ASCI1Z ‘READ ERR"’ 
051105 000122 


005015 040522 042116 RANDM: .ASCIZ <15><12>''RANDOM '' 
046517 000040 


005015 042522 047503 RECOV: .ASCiZ <15><12>"'RECOVERED RETRY CT '' 
grist BS 


: 
1 
1 
1 
1 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
} 


BURALAT LS SSVRARAVISSS 


052103 

sist 046125 NOFND: .ASCIZ <15><12>''COULD NOT FIND DRIVE’ 
-044506 
044522 0 

015 005012 CRLFLF: .ASCIZ <15><12><12> 


040 054450 YORN:  .ASCIZ ** (Y OR N)** 
020122 024516 000 


000776 -EVEN 
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CERSBC.P11 14-AUG=78 08:29 SKMMR - 
001000 ° 1000 


See | 


ITERATION COUNT ;RH = TEST NO. 
“ERROR COUNT 
z2 WORD PASS COUNT 
LOOP ADDRESS FOR SCOPE 
ADDRESS OF LAST bar Pneter te re 
sFILCHR=0 (CHAR)  ;FILCHR+1=2 (COUNT) 
[OUTPUT STATUS REGISTER 
[OUTPUT BUFFER 


MM NONoNNNNof~y 
ee he ee 
ONAUSBWN—O 
oo°oo -—--—]CO0C0OO 
So 
oO 


;DISK 1/0 REGISTERS 


172040 :DISK CONTROL + STATUS REGISTER 
DISK CONTROL + STATUS REGISTER 
:WORD COUNT REGISTER 
BUS ADDRESS 
:DISK aan (DESIRED ADDRESS) 
:DRIVE STATUS 
ERROR REG. 
ZATTENTION SUMMARY 
;LOOK AHEAD 
:DATA BUFFER REGISTER 
MAINTENANCE REGISTER 
“DRIVE TYPE REGISTER 
BUS ADDRESS EXTENSION 
;CONTROL AND STATUS 3 
RSVEC: 204 ; INTERUPT RSVEC 


BIT ASSIGNMENTS FOR ERROR TYPE OUTS 


DATA BUFFER 
: DESIRED ADD 
;WORD COUNT 
BUS ADDRESS 
ay itt STATUS 
ATTE ane 


: MAINTENANCE 
DRIVE TYPE 


001070 000206 STATUS: 206 
007072 000200 PRIORITY:BIT7 


:DISK INTERRUPT STATUS 
:DISK PRIORITY LEVEL 
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000006 :R/W_IN PDR REG 
000000 
000250 
000000 


PUBM 
STARTING ADDR FOR -A- PORT WITH MEM MGMT 
STARTING ADDR FOR B PORT W/MEM MGMT 
4 teddy LOC FOR CPU W/MEM MGMT 
;SIZE OF A PORT 
fog OF B PORT 


OR A PORT 
[FLAG FOR PORT BEING TESTED 
:VIRTUAL ADDR 
;PHYSICAL ADDR 
«FLAG FOR RESTART AND FOUND DRIVE 
BAD UNITS ON SYSTEM THAT GET DUMPED 


88888888388 

aed ad ah cad aa ca a cal ea ad 

aed an oe ed and cn en a end ed eel 
RNSARNOKRVS 

COoOCOCCCOOCCOCOD00 


Monon] aa a 
So 


FLAG2 


RESTART 

FOUND DRIVE 

ERROR DO A CRLF FOR UNIT # 
COMPARE 


T IF MEMORY HAS gt BEEN FOUND 
mee SET MAKE WC UP TO 28k 

FOUND MEMORY ON 5 PORT 

POWER DID FAIL 

WAITING IN BACKGROUND TEST 

PARITY i alee 


NE 
IN POWER FAIL OR CONVERSATION MODE 
ERROR IN POWER FAIL 


:DISCRIPTION OF FLAG 


USED FOR WRITE COUNTER 

USED FOR WRITE COUNTER 

TRANSFER MODE 64k 

OPTIONAL DMA 

TEST -B- PORT 

LAST DISK BUFFER FLAG 

PROGRAM IS IN ADDRESS OR RANDOM TEST 
ERROR DURING TRANSFER 

DATA TEST ONLY 

MUL TIPORT 


READ 

WRITE CHECK 

WRIT 

PROGRAM CONTROL MODE 
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sRH70 DEDICATE REGISTERS (MEMORY) 


wW 
nm 


; TEST REGISTER 
[WORKING WORD C 
[WORKING DAE 


;WORKING DAR 
peal PATTERN INDEX 
woo BUFFER (OUT=IN) 


STANDARD WORD COUNT 
;ERROR COUNT FOR MESSAGES. 


POINTER FOR HARD ERROR 


and and aa ae ol cd 
COOONAUEWI 


S88888888888S88$38888383ssss 


KuuyuueY W 
—_ 
Se ee ee ee ee ee ee ee et ee ee ee ee ee ee ee ee | 


UNIT CURRENTLY BEING TESTED 
3 73 BIT=UNIT ON 

;FOR COMPARING FOR # OF DEVICE 
[FLAG FOR RSO4 

:WORK LOC FOR es 


eS ee oe ee ee 2 
SRXRNSKFAVSKENSERASEK 


ERROR FLAG AND LOOP COUNTER FLAG 
CONTAINS # OF WRITE ERRORS 
[CONTAINS # OF WRITE CHECK ERRORS 
CONTAINS # OF READ ERRORS 

:CONTAINS # OF COMPARE Seaton 

;MEM MGMT AVAILABLE INDICATOR 

SAVE LOC FOR CONVERSATION WC ry ge 
;LOOP IN ADDRESS + RANDOM TST FLAG 
SAVE WC SIZE FOR ~B- PORT 


0 
: @ 
; © 

0 

0 

0 

0 

;@ 
:0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


SAVWCB: 


3RH7® WORK REGISTERS 
GAN oF [PennEP IN ANY ROUTINE) 


WORK1: OQ 
WORK2: 0 
ERRVEC=4 
LERADD=177740 
HERADD=177742 
177744 MEMERR=177744 
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7SET STACK TO *** 500 *«« 
E VECTOR 


; LOCK 

7SET EMT VECTOR 

;LOCK UP 

Art TRAP VECTOR 
K UP 

:INIT ICNT 


NIT LAD 
#177677, FLAG 


1132 7CLEAR FLAG 
001126 4 77776,FLAG2 ;CLEAR ALL EXECPT RESTART 
LAG3 [CLEAR LOOP IN ADDRESS + RANDOM TST FLAG 
001126 MB110,FLAG2 iis THIS THE FIRST TIME? 


PC,LDR 7 SAVE atx 
: ;CLEAR THE WORLD 
177776 MOV #340,PS [LOCK UP INTERRUPT LEVELS 
R5,ERRCL ;CLEAR ERROR COUNTER + PASS CNT 
MMAVA [CLEAR MEM MGMT FLAG 
A0B1 TEST A PORT FIRST 
177570 4 WANT MEM MGMT? 


000004 Ser TIMEOUT TRAP 
000006 7SET PS 
wo MGMT AVAILABLE? 


4$ 3; CONT 
: (6)+,(6)+ SCLEAR STACK 
000004 : 46,4 RESET 
6 ; TRAP 
001126 : +21} ain 31S THIS THE FIRST TIME 
SIZZAP [SIZE BUFFERS 
PC, a4EXTMEM :SET UP DATA BUFFERS 
: as > TURN ON + tes Y MEM 
001126 ot #BITO,FLAG2 ist TIME ? 
001220 SWRDCT, SAVWC ;SAVE WC FOR CONVERSAT 10% MODE COMPARE 
001126 : #BITO,FLAG2 :SET 1ST TIME FLAG 
DMA ;CLEAR DAR REGISTERS 


PATNU [CLEAR PATTER COUNT 
001134 MOV SWRDCT eWRDCT 
177570 le sDATA TEST ONLY? 


2 ; 
001132 #B1T10,FLAG = YES 
177570 28: #B1T10.SWR ZENTER CONVERSATION MODE? 

1$ :YES GO TO CONVERSATION MODE 
001132 #74000, FLAG 

R5,RESTOR ;RESTORE ORIGINAL WD CNT 
000004 #TIEOUT, ERRVEC 
000006 #540, ERRVEC +2 


ENTER CONVERSATION MODE 





2 
CERSB-C_RH70-RSO3 DATA AND RELIABILITY TEST MACY11 30A(1052) "18 AUGA78 08:26 PAGE 11 
CERSBC.P11 14-AUG-78 08:29 SKMMR - KERNAL MEMORY MANAGEMENT REGISTER ASSIGNMENTS SEQ 0024 


FIND OUT HOW MANY DRIVES 
IFIRST TEST RSAS 


DRVENO: MOV sPUT 8 INTO R1 ane oe 
BIC EAR VE F 


.-R1 
sith FLAG2 
MO #0,aRSCS2 
TRY: #7 ARSER 
DVNUM 

aRSCS2 

TRY 

@RSAS ,UNITSV 


VE T 
PEAT FOR NEXT DRIVE 


‘SAVE 

;DROP BAD DRIVES 

7SETUP TO CMP WITH UNITSV 
PUT 0 INTO UNIT NO. 
_ TYPE OUT? 


an Or ovaeciz bay) yd TESTING UNIT *' 
BI #BI1T2,FLAG2 ‘CLEAR ERROR FLAG 
STTEST: UNCMP-UNITSV = IS THIS DRIVE ON THE SYSTEM 
B TRYNX ‘NO 
UNTYP: MOV UNNUM,@RSCS2 =: YES PUT UNIT # INTO CS2 
C RSO4DT “CLEAR DRIVE TYPE FLAG 
@RSDT IST HIS A RSO3? 
177050 2$: #1 ,@RSDT i1S THIS A RSO3 4US? 
177060 38: #2 .@RSDT ak THIS A RS04? 
177030 #5. @RSDT “RS04? 
[GET A NEW NUMBER 


BN RYNX 
177777 +=001172 : Ha -RSO4D 7YES RSO04 
040000 001126 ; wB1ta, OFLAG2 Be POWER FAIL OR CONVERSATION? 


PC YES 
000200 176764 7%: #B1T7,aRSDS ‘IS THIS DRIVE READY ? 
TRYNX SNO GET ANOTHER DRIVE 
000040 177570 #BITS , SUR  TYPEQUT? 


3NO 
000004 001126 #BIT2,FLAG2 = THERE AN ERRER? 


000757 ,CRLFLF 


001164 MOV UNNUM , = (6) PUT _UNNUM ON STACK 
: TYPE STACK IN OCTAL = SUPRESS 
000040 -40 2 TYPE SPACE 
000004 001126 #BIT2,FLAG2 ZCLEAR ERROR FLAG 
B NOWGO SNOW TEST 
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001170 


UNCMP 7 CHECK NEXT ais FOR DRIVE 
CHCKDV DID WE a REG? 
UNNUM 


7 INC UNIT # 
STTEST ;CHECK FOR NEXT DRIVE 


#BI1T1,FLAG2 :F OUND IVE? 
YES WE DID TEST A DRIVE 
#100000,UNCMP NO DRIVES TESTED, COULD NOT SET 


SKMMR 
ASL 
CS 
INC 
032737 CHCKDV: BIT 
BNE 
MOV 
a UNNUM ZANY AS Oh te THUS DEFAULTS TO 0 
TYPES 
TYPE 
HALT 
BR 
JMP 
BIS 


001014 
012737 
5037 


UNNUM , = (6) T_UNNUM ON STACK 
TYPE STACK IN OCTAL = SUPRESS 


-NOFND 
;COULD NOT SET ANY ATA BITS 
:BY SETTING ERROR BITS 
:GO BACK AND USE OTHER DIAG. 
NOWGO s TEST DRIVE 0 
4 DONEE : OUT ;GET OUT 
000002 001126 NOWGO: at? -~ lal alata [FOUND DRIVE 


ENTER OPERATOR CONVERSATION MODE 


006566 CONM: ior « * STABUF 
001074 MOV (6)+,STAMEM START BUFFER AT 4K 
002310 JMP NOPORT ;GET OUT 
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480 002236 006566 : TYPE . STABUF 

481 1 TYPE pote g ACT? ¢ tes 
482 104420 :GET ANS 

483 MOV (6)+,STBCOM SAND SAVE IT 
484 104402 0066 BUF SIZ 


b TYPE ° 
485 1044 GET - 
002266 MOV (6)+,SIZEBP *SAVE IT 
001114 #6,SIZEBP ; GREATER THEN 24K? 
;YES ASK ~ ary 
001132 #B1T6,FLAG [SET B PORT FLAG 
: PC,EXTMEM ‘CAL BUFFERS AND WC 
001134 MOV SWRDCT ,WRDCT [GET STANDARD WC 
001132 : #1710. ‘nee :SET BIT FOR DATA TEST ws 
: CLEAR — ag + PASS CNT 
001132 IC Be eae FLAG 2CL EAR MULTI FLAG MODE +PATTERN SELECT 
.+ -ASCIZ <I5><i> MULTI DRIVE*’ 
PC, CMPY * COMPAR gt 


BN DATTES zANS IS NO 
001132 #B1T11,FLAG ;SET BIT FOR MULTI DRIVE 
1$: ASKWC 
DATTES: 
T ;-ASCIZ <15><12>"'TYPE UNIT # °° 


MOV GET NUMBER 
001174 #10,NUMS CORRECT # ? 


001164 NUMS , UNNUM [SET UNIT # 
: TEST FOR RSO4 OR 03 
: CLEAR Wo WORK AREA 


: SET BIT IN WORK 
001174 1 gaa THE RIGHT BIT FOR THE RIGHT DISK 


001174 NUM$ [NO TRY AGAIN 

BR 2s : TEST AGAIN 
001166 : MO e V SET DRIVE BIT IN UNITSV 
000002 #BIT1,FLAG2 SET FOUND DRIVE FLAG 


494 
96 
4 
500 
502 
503 
504 
505 
506 
507 
508 
509 


MAAAYIVIVIVIVIVT 
ed ad cd oad anh and aed ec an od 
WODONAUSWR—O 


002516 T 222 ;-ASCIZ_<15><12>" OPTIONAL WD CT" 
003234 PC, CMPY :COMPARE FOR YES 
2544 : wc CON ZYES 
002546 OPDAR > CONT 
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CERSBC .P11 14=AUG=78 


wWCCON: . ee 
002554 PE 3 ASCIZ <?5><12>'WD CT 
001174 MOV :GET NUMBER 
001174 $} NUMS 21S IT 0? 
wCCON 7YES ASK AGAIN FOR LENGTH 
001220 MOV RO :GET STANDARD WC FOR -A= PORT 


001174 :1S_NUM$ LESS THAN SWRDCT 

:YES ASK FOR COUNT AGAIN 
001174 001150 MO NUMS , SWRDCT OPERATING WORD COUNT 
001150 001134 SWRDCT ,WRDCT 


002636 T este 3 ASCIZ_ <15><12>" OPTIONAL DSK ADDR’' 
003234 R PC, CMPY [COMPARE FOR YES 


OPPAT ANS IS 
000040 901132 #B1TS,FLAG SET OPTIONAL DMA FLAG 
002702 202 >.ASCIZ <15><12>' Dsk ADDR *' 


001774 MO (6) + ,NUM$ ;GET NUMBER 
001172 RSO4DT 1S THIS A RSO4? 


1$ NO 
017777 001174 #17777 ,NUM$ 31S ADD. CORRECT? 
BR 2$ :GET OU 
007777 001174 : #7777 ,NUMS 31S ADD. CORRECT? 
: OPDAR iNO 
013737 001174 001146 NUM$ , TDMA ; TEMP SECTOR REGISTER 
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OPPAT: 
002764 . 3; ASCIZ <15><12>' DATA PATTERN # °' 


001174 :GET_ NUMBER 
000023 001174 #23,,NUM$ zTEST FOR CORRECT NO 
001142 C P. CLEAR PATTERN # 
000022 001174 
OPWRT DATA PATTERN UNDER PROGRAM CONTROL 
100000 001132 WBIT1S,FLAG . SET PROGRAM FLAG 
001174 001142 MOV NUMS , PATNU [OPERATOR WANTS TO SELECT DATA 


001142 PATNU 


rg ¥ PADADA WA 
ROSSER COS | 


003066 ee ;ASCIZ <15><12>' WRITE'' 
003234 PC,CMPY = COMPAR E FOR YES 
;ASK ABOUT WRITE CHECK 


001003 OPAD 

052737 040000 001132 #BIT14,FLAG ‘YES SET FLAG BIT 
003116 ; 42 :ASCIZ <15><12>' READ" 
003234 BC Cwpy ‘COMPARE FOR YES 

052737 010000 001132 #B1T12,FLAG :SET FLAG TO READ 


104402 003146 ; i : ASCIZ <15><12> WRITE Ck’! 
004737 


003234 PC, CMPY SCOMPARE FOR Y 
001003 ADTST 
052737 020000 001132 #B1T13.FLAG 
032737 004000 001132 : #B1T11,FLAG ZARE WE IN MULTI DRIVE MODE 
001402 B EXMFLG [BRANCH IF NO. 
001620 J PC ,DRVENO :GET DRIVES TO BE TESTED 
000004 : #BIT2, FLAG SCLEAR XFER MODE FLAG 
002000 1$: B #3110, FLAG :TEST FOR DATA TEST ONLY 
ADT1 ‘DO COMPLETE TEST 
003660 DATAT ‘DO DATA TEST ONLY 
000763 :  YORN 
000131 017246 MPB so #"Y, INPUT :TEST FOR YES 


R C 
052737 100000 001222 : #B1T15,FLAG3 SET LOOP IN ADDRESS TEST FLAG GOT HERE 
BECAUSE PROGRAM WAS STARTED AT 260 
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Ty ADDRESS ie #1_(TRACK AND SECTOR SELECTION TEST) 
sWR Sone Conta RSO3, 200(OCTAL) RSO4, WORDS IN EACH SECTOR 
THE "WoRD ONTAINS THE ADDRESS OF we SECTOR 
7 WHEN THE COMPLETE DISK IS WRITTEN 
:BACK EACH SECTOR AND COMPARE FOR THE CORRECT 
A_IN_THE SECTOR 
‘ps "ts AT LEVEL 7 SO NO INTERRUPTS 


ADT1: sADDRESS TEST 


OT TI IIIT ITI TIT ITIT TTT TT TTT TITT TTS TI TTT TTTTTITTTETE TTT TT TTTT Ti TTTiT 


STEST 1 ADDRESS TEST 


DOOR IOI IIIS IOIDISISIOISIOISII IIIS IIIT TOT OTTO TT TTT AAA SAIS SAIAM 
: SCOPE 
177776 : ;LOCK UP PS 
C MP2 


017326 MOV yee OUTBUF ;START BUF AT — 
001132 1T8,FLAG :SET TEST FLAG 
001154 SURDCT. SAVE SAVE STD WD COUNT 
DMA SCLEAR DISK ADD 
INIT DRIVE 
#200,WRDCT SETUP WC 


#200, SWRDCT 
RSO4DT i THIS A RSO04? 


$ 
001134 1$: #100,WRDCT ‘SETUP WORD COUNT 
000100 001150 #100, SWRDCT 
017326 001144 2$: MOV OUTBUF , BUF :SET UP CURRENT ADDRESS 
SEABUF : SCLEAR RS REGISTERS IF ERROR 
017326 MOV OUTBUF ,RO ;SET UP ADDRESS BUFFER 
MO WRDCT,R1 
XSEABUF : DMA, (0) + [LOAD OUTBUF WITH DATA TO BE WRITTEN 
D R1 ‘FILL OUTBUF 
XSEABUF ‘WITH DATA 
#61,CMD :WRITE NO I/E 


175404 as wr Sil ;CHECK FOR READY 
175376 anscs ;TEST FOR ERROR 
WRNE XB ;BRANCH IF NO ERROR 
003370 MSEABUF ,LAD :SET UP LOOP ADDRESS 
001000 #BITS.FLAG ;SET ERROR BIT IN FLAG 
;LOG WRITE ERROR 
H 'WC'DA'BA 
WRNE XB: 


007204 JS PC DI SBUF ;SET UP NEXT DISK ADDR, 
000741 BR SE ABUF sWRITE NEXT SECTOR 
104400 RRDSEC: SCOPE 


{338 


essss 


1044 
01 
01 
01 


e288 
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CERSBC.P11 


000071 001176 
175324 
175316 
001000 001132 


017326 
001172 


000200 


000100 
001140 


001140 


014112 
000757 


007204 

001154 001150 
000400 001132 
100000 001222 


003262 


177777 =001024 


001074 001026 


ADDRESS T 
RDSECT: ERCLR :CLEAR ERRORS 
MOV #71,CMD “READ NO I/ 
aRscst 
aRSC$1 
ADHGT 
#B1T9,FLAG 
'WC!DA 


CMP FOR CORRECT ADDR. 

[BRANCH IF DATA DID NOT COMPARE 
GET NEXT ADDRESS OF INBUF 

[DEC SECTOR COUNT 

; TEST NEXT WORD 


CORRECT ADDRESS 

(2) ;BAD [DATA IN ERROR 
:DISK ADD DID NOT MATCH WRITTEN ADDRESS 
;LOG COMPARE ERROR 

PC,PRNT ; INHIBIT TYPEQUT? 

CHKADT ZYES 


CRLFLF ‘ 
y*****REPORT ONLY ONE ERROR PER SECTOR«*«« 


CHKADT: SCOPE 
JSR ;SET UP NEXT DISK BUFFER 
:CHECK NEXT SECTOR 
arty § +” 
mein, FLAG3 ~_* OPERATOR WANT TO LOOP ON TEST 


’ 
MP ADTIA sYes 
DATAT: DATA TEST 

JIGS IIDC OIIDIOICISIIOITISIIOIICICIUIOIOI ISIS ISIC IOI IOI IOI IOI III IOI III I I 

STEST 2 DATA TEST 

RRR REE RRR RRR RRR EKER ERE REE REE EEK EEE EKER EEE KR EK 
TST2: 

DY 7 III III III IOI IOI III ITI ITO TOI TOR TOT ITAA AAAS SNA AS SAIN 
TI AOI IOIISIIIUIOISITIO ROCIO IOS OIC IOI IIIS IOI IOI III I II II ff 
FR EEE REE KEKE EKER KEKE EEK KEKE EERE EKER REE KEKE 
DY III III IOI III III II TOI ITO TOR ITA TAI AAS AA NAS SISI IN SINSI AS 
CREE REE EERE RAKE ERK KERR EEE RRR EEK EK EE 
FO KR RRR RK RRR RRR EEK ERR ER ERK EKER REE ERE EEE KKK 
DOC 7 too ot RO IORI III ISI IOI IDOI IOIOICIOI IIIS IOI IOI OI TI 
SEERA REE REE REE ERK EEE RR EEE EKER ERK KEKKK EEK 


MOV &- 7, TEMP2 :TEST 2 INDICATOR 
MOV STAMEM, TEMP 3 
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013737 001150 001134 LDAT3: SWRDCT ,WRDCT 
001140 LDAT2: CL DMA CLEAR DISK ADDRESS 
011376 C CLEAR RS REGISTERS 


JS . 
007130 2$: P eee : SETUP INT VECTOR 
000340 MOV SET DISK STATUS REG LOC (206) 
3 SETUP ROR R 


003762 
017326 
000003 


007650 
001204 


006546 JS R5,OPDSEL 
040000 ry a -FLAG 
000161 #161,CMD WRITE WITH I/E 


3:D0 A WRITE 
011600 PC WATT [WAIT FOR INTERRUPT 
ALDAT,LAD SETUP SCOPE LOOP 
or zWAS THERE AN ERROR? 


:LOG WRITE ear 
LOPCNT ;SET_ERROR FLAG 
#1,LOPCNT 71S THIS THE” FIRST TIME? 


:NO 
014112 : PC,PRNT STYPE ? 
1$ ;NO 


000620 -DATA 
000630 -WRTERR 
: is: DA WRITE yar 
001132 LAG DEC COUNTE 
000003 001132 v3 cLAG DONE _YET WITH 3RD TRY? 
LDAT :NOT 3 TRIES y Se: TRY AGAIN 
011444 PC ,WITNO YPE CAN NOT WRITE 
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001204 ; LOPCNT WAS THERE AN ERROR? 


WRX1 : 
011622 PC, TYPREC ;TYPE RECOVERED 
001204 : LOPCNT ;CLEAR ERROR FLAG 


000003 001132 IS A ;CLEAR RETRY COUNT 
007204 LBATI ;SET BUFFER FOR WRITE CHECK 


Wwron-- 
OBNMALO 


: ;CLEAR RS REG IF ERRORS 
006546 :1S_THE OPERATOR SELECTING THE TRACK 
020000 sy FOR WRITE CHECK 


004470 sNO 
017326 : ;SET_UP CURRENT ADDRESS 
000151 ;WRITE gw 7 dag I/E 


o QRSRROK 


ad a aad aa an ead ani aed eh ae ee eae an enh ea ald 
SITS LVEES 


SSSRSERIESRRSERASE 


BR 


011600 J PC,WATT 
001000 001132 : . HIS THERE AN ERROR? 
B 1$ NO_ERROR 


ER 
001204 ! 31ST ERROR? 
BN 2$ :NO 


: YES LOG ERROR 
000100 177570 : IT . ; TYPE ALL ERRORS? 


YES 
001000 177570 SLOOP ON ERROR? 
BN 3$ sVES 
001204 iFIRST ERROR? 


10$ iN 
014112 : : TYPE OUT? 
4$ NO 


. 
. 


000620 
2 


00064 
174536 S GET CORRECT BA 
017326 :DID A WD GET XFERED? 


9$ :NO 
000400 177570 ‘ :XFER MODE? 
9$ ;YES 


000002 # 
014112 : 2" Fo taal ERRORS? 


iN 
001216 53 MEM MGMT AVAILABLE? 
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004737 006762 JSR PC ,PHYCOV :YES GET VITURAL ADDR 
010237 001226 7s: MOV R2 WORK :GET BA 
104402 004354 7 TYPE oot? :.ASCIZ <15><12>""(BA) =" 
017746 174636 ; MOV @WORK , = (6) :PUT @WORK ON STACK 
;TYPE STACK IN OCTAL 
004376 : ASCIZ '' WC= 


wm. 
174426 MOV @RSWC ,- (6) PUT @RSWC ON STACK 
TYPE STACK_IN OCTAL 
!DA!DB!BA NOTE: BA REG. = +2 OF ACTUAL MEMORY 
LOC AFTER WORDS HAVE BEEN XFERED 
001204 : LOPCNT : INC_ERROR COUNT 
000010 001204 Af ated :10 TRYS YET? 


006720 ] PC ,NOREC : TYPE UNRECOVERABLE 
001204 °$: LOPCNT :ANY ERRORS? 


011622 PC, TYPREC S TYPE RECOVERED 
001204 : LOPCNT [CLEAR ERROR COUNTER 


004146 001010 #SLH2, “4 SETUP LOOP ADDRESS 
007204 DI SBUF ;SET UP THE DISK BUFFER 


BR 
011312 : :CLEAR BUFFER 
006546 : * OP SOPERATOR SELECTED DISK ADDRESS? 
001132 wpitie, FLAG sTEST FOR READ 
MSTR ‘NO READ 
001132 #3, FLAG :CLEAR RE-READ COUNT 
CNT :CLEAR FLAG 


g | 
S 


BoSReeeEe 


Ai yay + ae IF ERRORS 
601176 MO #171,CMD :READ Wi H I/E 


011600 PC WATT 
010000 177570 #10000, SWR : COMPARE ? 


BN TAG r 
000004 001132 #3112, FLAG * COMPARE ? 
010414 RS - COMPARE * COMPARE 
LA 


RRENSHSKSREE 


~ 
Ox 


0045 
0045 
0045 
0045 
0045 
0045 
0045 
0045 
0045 
0045 
0045 
0045 
0045 
0045 
0046 
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TAG: 
Baer ee 001000 001132 ELH: a +? Mi ay 3 THERE AN ERROR? 
000100 177570 *e ° +o Ag ERROR TYPEOUT? 
001204 ‘FIRST ERROR? 
2$ ‘NO 
014112 ‘ = TYPEOUT? 
1$ NO 


000620 ‘ 
000657 *RDERR 


!DS!DA 


001204 ‘ LOPCNT : COUNT ERRORS 
000010 001204 #10,LOPCNT ;LAST RETRY? 


006720 PC ,NOREC TYPE UNRE COVERABLE 
004716 : JMP ADR1 ; CONT 


001204 TS eel ANY ERRORS? 


AD :NO 
011622 J PC, TYPREC TYPE RECOVERED 
007204 ¢ PC D1 SBUF [GO SET UP DISK BUFFER. 
READCT [CONT. READING 


BR 
001132 : FLAG 

BM 3$ OPERATOR SELECTED PATTERN 
PKR EKER EEK EERE KER EERE KERR EERE ERK KEKE KKKK 
SKK REE KR KEKE KEKE EEE KEKE 
SKK REE KER ERK KEE KEE EKER 
SEK E RE RER RE KKEKEEREEEREEER EKER EK EEE EEE EERE 
SKK KERR EKER EKER EKER KE EKER KEKE K 
SRK EKKKEEKEEEKKKEKEEKK 
FRR KKK REE EKER ER EEK RRR REE REE REE EK 
TR IOI ICICI III IIIS II IIIT ITO TOTTORI AS SASS A SAA AAA 
J KEKE ERR REAR ERK KKK KEE EKER EEE KEKE EE ERE KEE KEE KEKE 


013746 001134 WRDCT ,~(SP) 
C00316 ( 
177400 #177400, (SP) 
(SP) 


;LOG READ ERROR 


(SP) 
(SP) , TEMP3 
001026 TEMPH TEMP3 


(SP), TEMP3 
001026 TEMP) , TEMP3 


(SP) +, TEMPS 

OUTBUF 
001026 MG TEMP3,-(SP) 
020000 017326 6$: A #20006, OUTBUF 


5: 
(SP) + 
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000137 003676 LDAT3 

005726 : (SP) + 

062737 000002 #2,PATNU zINC PATTERN INDEX 
020737 000044 MP wi, »PATNU 


003660 DATAT NOT LAST PATTERN EXIT 
001142 C PATNU LAST PATTERN EXIT 
000002 #B1T1,SWR :DAT A TEST ONLY? 


YE 
002000 + hla ts ;DATA TEST ONLY? 


: AOB1 ALTERNATE PORTS 
: EXTPPR ; 
005136 : RANE X ;DO NEXT TEST 


004474 READCT: ESH : CONT. READING 
100000 001222 RANEL: #B1T15,FLAG3 7SET LOOP IN RANDOM TEST GOT 
SHERE BY STARTING AT LOC 264 
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005136 RANE X : ;RANDOM ADDRESS DATA TEST 
;THIS PROGRAM WRITES, WRITECHECKS AND READS 1 SECTOR OF RANDOM DATA FROM RANDOM DISK 
SADDRESSES. THIS TEST WILL MAKE 7000(10) PASSES BEFORE IT IS COMPLETED 


BASSI ISIS IIIS IIISISOIIISIOIOISI IIIS ISIDIISIOIIOIOIIOIOIDIOITIIIIOIOIIOITIITII IOI IIT I TIE 
;TEST 3 RANDOM ADDRESS RANDOM DATA TEST 
JUBA OIIIOISIIISISIIOITISIISIOI IOI IOIOITICIOI ISIC IIIT TOIT TTT TTT IAT IAS IIASA ASAIN 
TST3: 
DCT Zor IIIS ICICI IOI TOT TTT TITAS TIS IAM 
THEISTIC IOI IOI III III I To 
BOAO IOI IOI OID IOI TORIC ITO IOI TAIT I IIIA SII SSIS SII SANA A 
[CY Ze oto ri IIIS II ICID IOI IOI IOIOIIIOIOIOICIOIOIOIOIIIOIIOI IIIT TORII 
DIARIO IIIT IOIOIIOIOI TOI IIIT IIASA AS ASIASIS SSA ISAS IIS ISAS ISAS INIA ASIANA AIM 
AAAI IIIIIIIISIOIIIIISIDIIOISISIIOIIIOITICIOIOIOIOIIOIOIIIOIIOIOIOIIOIIIOIOIOI IOI III TOI TOTO TOT TTT 
CY 8k A III III ISIC ICI IOIOISI IIDC IOI IOI II IIIT 
ROR II III ICICI IOI IOI IIT TOA IAAI IAS SISA ASSI SSIS IASI AISI AANA AAI IAAI ANI AAAS 
TEMP2 sNOMORE A TEST 2 
001132 2$: #B1T8,FLAG SET TEST FLAG 
017326 MO #20000, beg :GET STARTING ADDR OF BUF 
001122 OUTBUF ,V ;SAVE BUFFER ADDR 
- ans 7MEM MGMT AVAILABLE? 


177572 @#SRO 
000042 001142 : MOV #42 ,PATNU 


176030 001162 MOV #-1000. ,PASSC SSET UP PASS a 
001156 #RWRED , HRDER SET UP 


PC, VECTRR 
173632 MO #340, ,aSTATUS 
: AMWRERR ,LAD 


FOR HARD ERROR 
;SETUP INTERRUPT VECTOR 


SETUP LOOP ADDRESS 
[SET UP RANDOM GENERATOR WORD 


:GENERATE RANDOM DATA 
@OUTBUF , DMA :SET UP DISK ADDRESS 
#170000,DMA 
#3,FLAG :SET COUNTER 
#200, WRDCT *RS04 
RSO4DT *RS04? 
2$ 2¥E$ 
#100,WRDCT 7SET UP WOPD COUNT =1SECTOP 
[GENERATE RANDOM BUFFER 


001144 MO ;SET UP OUTPUT BUFFER 
001204 OPCNT ;CLR ERROR FLAG 
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CERSBC.P11 14-AUG-78 08:29 RANDOM ADDRESS RANDOM DATA T SEQ 0037 


: ERCLR 
000161 001176 MOV #161,CMD ane WITH I/E 


011600 PC,WATT sWAIT FOR INTERRUPT 
001000 001132 : are ; WAS THERE AN ERROR? 


177570 BiT #B1T6,SWR “TYPE RETRY ? 

LOPCNT [FIRST TIME? 
‘LOG WRITE ERROR 

LOPCNT “SET ERROR FLAG 
PC ,PRNT  TYPEOUT ? 
3$ “YES 

000670 ,RANDM 

000630 *WRTERR 

: 'DS'DA 


001132 FLAG 
000003 001132 #3,FLAG 
WRERR 


sRETRY 
011444 PC ,WINO TYPE CAN NOT WRITE 
006076 EXRAX :GET NEW NUMBER 





3 
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CERSBC.P11 14-AUG-78 08:29 TST3 RANDOM ADDRESS RANDOM DATA TEST 


001204 WRRCK1: Ist LOPCNT :ANY ERRORS? 
011622 S PC, TYPREC S TYPE RECOVERED 


001204 ; CLR LOPCNT ZCLEAR LOOP COUNT 

: [CLEAR RS REG IF ERRORS 
000151 001176 MOV #151,CMD :WRITE CHECK WITH I/E 
011600 S PC WATT WATT FOR INTERRUPT 
001000 001132 4$: #BIT9, FLAG ‘ERR 


000100 177570 o! T6,SWR oe ALL RETRYS? 
001204 ” deal iF IRST ERROR? 
014112 LOG wat Te ” 
000670 


000642 
173232 001226 ;GET CORRECT BA 
000002 001226 #2,WORK 
005622 +2 3 -ASCIZ <15><12>'"(BA)="' 
173370 MO\ é ‘PUT @WORK ON ¥ “75 
;TYPE STACK IN O 
'DB'!DA!BA *BA=MEMORY LOC a5 OF ACTUAL WORD 
: LOPCNT 3; INC RETRY COUNT 
001204 MP #10,LOPCNT ‘LAST ONE YET? 
WRRCK ‘NO 
;CLEAR LOPCNT 
;GET NEW NUMBER 
Y ERRORS? 


RECOV 
LOPCNT ,-(6) ;GET NUMBER 
sTYPE IT 
~CRLFLF 
5716 104400 . : 
005720 052737 001132 IS #3,FLAG 7SET COUNTER 





CERSB-C_RH70-RSO3 DATA AND RELIABILITY "et 
14-AUG-78 08:29 ST3 


CERSBC.P11 


S88398 | 


Me 333554255554 


elolelelelelelelelelelele) 


~m 


Oo 
MEWN—OOONOUSWN—O 


— 
SUR% 
oO 


8 


SSRRSSSEEREE 
RRESRIENSRGAN 


001204 
011312 
000171 


011600 
010000 


010414 
001000 


000100 
001000 
001204 
014112 
000670 
000657 
001204 
000010 


006720 
001204 


011622 


005136 


001176 


177570 


001132 


177570 
177570 


001204 


001132 
001222 


MACY11 30A(1052) 
RANDOM ADDRESS RANDOM DATA T 


SCOPE 
CLR 
JSR 
ERCLR 
MO 


V 
DKCMD 
JSR 


LOPCNT 
R5,CLEAR 
#171,CMD 


PC, WATT 


#B1T12,SWR 
TAG] 

R5 , COMPARE 
RWRED 
#BIT9,FLAG 
EXRAX 


#B1T6,SWR 
#BIT9,SWR 
2$ 

LOPCNT 

3$ 
PC,PRNT 
. 


*RDERR 
'DBIDA 


LOPCN 
10; NOPCNT 


RREAD 
PC ,NOREC 
LOPCNT 
EXRXX 
PC, TYPREC 
PASSC 
1$ 
WRLG1 


ABIT 
mits, EE AG3 


RANE X 


3 
NISAUGR7B ett 26 PAGE 26 


7 CLEAR ty fly 
;CLEAR BUFFER 

; CLEAR RS Bay. IF ERRORS 
READ WITH I/E 
READ 


COMPARE ? 
;NO 

7 YES 
; CON 


71S THERE AN ERROR? 
:NO 


:LOG READ ERR 
Ab ya ALL ERRORS? 


‘(OOP ON ERROR? 
‘FIRST ERROR? 
‘NO 

* TYPEOQUT? 

NO 


UPDATE COUNTER 
[LAST TRY YET? 
RETRY 


: TYPE _UNRECOVERABLE 
ZANY Y ERRORS? 


TYPE RECOVERED 


:+1 PASS COUNT 
71S TEST DONE? 


SEND OF TEST 
“CLEAR TEST FLAG 
‘LOOP ON THIS TEST? 


‘YES 
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CERSBC P11 14=AUG-78 0 ST3 RANDOM ADDRESS RANDOM DATA T 


CHECK FOR MULTI DISK MODE 
IF IN MULTI DISK MODE REPORT ‘END’' 
: IF LAST DISK ON SYSTEM HAS BEEN EXERCISED. 


FARRER ERR RRR RARER CREE EKEEEEREREREEE ERE REE ERE EEEEEEREEEE 


TEST 4 TEST FOR MULTI DISK MODE 


RARER REE RE KERR KERR EERE EK 


DMA 
TEMP2 
INIT DRIVE 
001132 #B1T11,FLAG ARE WE IN MULTI DISK MODE 
EXTPP "END" 


:NO_ REPORT 
PC, TRYNX YES TEST FOR ALL DRIVES 
JMP EXMFLG RESTART TESTING OF DRIVES 
002204 : PC ,DONEE :GET PASS COUNT 


THIS ROUTINE CLEARS THE DRIVE 
SREGISTERS IF THERE WAS AN ERROR 


001000 001132 .ERCLR: ai > ilies ANY ERRORS? 


:NO 
CLRDV :CLEAR ALL ERRORS 
001000 001132 BIC #BIT9,FLAG ;CLEAR ERROR FLAG 
1$: RTI sEXIT 


-ENTER DISK HANDLER BY THE TRAP INSTRUCTION 
ARGUMENT TO TRAP INSTRUCTION IS TWO ORTER 
“BYTE OF THE CONTROL REGISTER. 


013777 001140 172600 .DKCMD: MOV DMA, @RSDA ;LOAD DISK ADD 


ACI ISI ICO IOI IOI OIC IIIT TORII TOTTORI SOAS IA IAI IASI IAA A HM 
SEAR KKK REE ERRREKEE EEE KEK KEKE KEKE EKKEKKEEKEEKEEEKEKEKKKK 
SKE EKEKRKERRREKRKEKKEKEEEEEEKEKKEK EK KKKKKEEKKEKEKREEKEK KEKE EKEEK 
SRR KKK KEKE KEKE KEE EEK EERE KEKE EKEEEREKEKEKEKKEKK 
SKE KE RK REE EKEKEEKEEEEKEKKEKKKKKKK 
SRI K RK RKKRKERKEEEREREKKKHKE RE KEEKKKEKEKREEREKKEKKEKEEKEEKKEEKEKEK 
DRIER KERR REE RK RRR IKKE REE RRR KKK EKER EKER EK 
III RII IIIT IITA RIAA IIIS III IIIS OSI SSSSSSASAIAS 


005737 001024 TEMP2 
001422 


5$ 
001026 TEMP3 ,~(6) 
172602 @RSBAE 
001030 TEMP4 

020000 001030 : #20000, TEMP4 
001030 001144 “ MP4 ,BUF 
172554 


Oo 
wn 
o 


NISSEESERAR ESSE 


= 


001202 5$: :CLEAR INTERRUPT FLAG 
001144 172512 : [LOAD (CMA) BUSS ADDRESS 
001134 WRDCT ,R2 :GET NEGATIVE 

C :WORD COUNT 


Re 
010277 172476 Re, a@RSwC SLOAD wC 


SSLRFPSTLSSEEKEE 


ak as a od) 3 od 2“) I) 


—— Sy 
oo 
m= 
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CERSBC.P11 14-AUG=78 08:29 TST4 TEST FOR MULTI DISK MODE 


032737 000400 001132 #B1T8,FLAG ;RANDOM TEST? 

1 BN 1$ SYES A PORT ONLY WITH NO MEM MGMT 
001216 MMAVA ‘MEM MGMT AVAILIABLE? 
000040 001126 #B1T5,FLAG2 :SET A17_ IN RSCS1 


052737 001000 001176 #B1T9, CMD YES 


00102 
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CERSB=C_RH70-RSO3 DATA AND RELIABILITY "el. MACY11 ly et "1 8AUG-78 08:26 PAGE 29 
CERSBC.P11 14-AUG-78 08:29 TEST FOR MULTI DISK MODE 


032737 000020 001126 3$: BIT #BI1T4,FLAG2 3SET A16? 
1403 EQ 1$ :NO 


B 
900400 001176 BIS #B1T8,CMD > YES 
001176 172412 1$: Sa CMD ,@RSCS1 : LOAD, FUNCTION RE REG. 


3RH70 DISK INTERRUPT HANDLER 
ROUTINE CONTINUES ON ERRORS 


001000 001132 DKINT: #B1T9,FLAG CLEAR ERROR BIT 
172376 TST ees : TEST FOR ERROR 


BR JUMP IF NO ERRORS 
172366 2$: Ss 3GET CONTENTS OF CS1 
037777 CLEAR ALL BUT SC _AND TRE 
140000 1S _SC AND TRE BOTH SET? 
RUERR SYES THERE IS SOME KIND OF XFER ERROR 
100000 172360 #100000 ,aRSDS ZIS THE ATA BIT SET? 
BN TRUERR :YES 
'AS!DS WRONG UNIT INTERRUPTED 
:IF YOU HAVE JUST POWERED UP A DRIVE OR 
ARE RUNNING THE POWER FAIL TEST, 
; INTERRUPTS WILL OCCUR FROM DRIVES OTHER 
; THAN THE UNIT UNDER TEST. IF THIS TYPEOUT 
[SHOWS NO ERRORS IN THE oy tai OF THE DRIVE 
SUNDER TEST, THAT DRIVE IS OK 
012777 177777 172352 18: #~1 ,ARSAS :CLEAR ALL ATA BITS 
013716 001156 HRDER, (SP) :GET RETURN ADD. 
000002 ;RETRY 


R ° 
001000 001132 TRUERR: #BIT9,FLAG ;SET ERROR BIT 
004000 177570 INTEXT: wr hidacganes sHALT ON COMPLETION FLAG 
+ 


YES BIT 11 SET IN SWR HALT 
002000 001126 Ses TIO.FLAGE :WAIT IN BACKGROUND TEST? 


012264 2s: #NPRRET , (SP) MODIFY » tos ADD. 
001202 1$: SP, INTFLG Hite INT FLG 


RTI 
;ROUTINE TO SET UP TRACK # FROM OPTION 
ENTER FROM JSR R5, OPDSEL 


032737 000040 001132 OPDSEL: BIT BITS, FLAG Ae ate DMA? 
001403 BEQ 1$ 
013737 001146 001140 MOV TDMA,DMA Cer OPT. DMA 
000205 1$: RTS R5 sEXIT 


10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
ra) 
25 
26 
27 
28 
29 
30 
31 
32 
33 
Be 
35 
36 
37 
38 
9 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
1 
2 
3 
4 


3 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
5 
5 
5 
5 
5 
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CERSBC.P11 14-AUG-78 08:29 TST4 TEST FOR MULTI DISK MODE 


Orele? STABUF: .ASCIZ <15><12>""STARTING 4K BANK #"' 


BUFSIZ: .ASCIZ <15><12>"'HOW MANY 4K BANKS? (OCTAL) ‘' 


020051 


patie UNRECO: .ASCIZ <15><12>' UNRECOVERABLE' ‘<15><12><12> 
005015 


etal NOWRIT: .ASCIZ <15><12>" UNABLE TO WRITE''%<15><12> 
052111 006505 


014112 : PC,PRNT ; TYPEOUT? 
1$ ;NO 


006651 ,UNRECO ‘ 
001204 : LOPCNT ZCLEAR LOOP COUNTER 


052737 040000 001126 FNDTYP: #B1T14,FLAG2 SET CHECK DRIVE TYPE FLAG 
004737 001762 PC,UNTYP CHECK DRIVE TYPE FLAG 
Raeane 040000 001126 wBiT4, FLAG2 CLEAR DRIVE TYPE FLAG 


j 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


RS ss SS SS oS SI 3 SS es I SS Sh th en I ot os I 
BURARAVTLS SHISARANISSELEGRARISSSISG ¢ 
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sROUTINE TO CALCULATE VITURAL ADDR 


PHYCOV: SWAB Re CALCULATE FROM PHYSICAL ADDR 
011566 JSR tee 


177770 #177770 ,R2 :GET REG & 
000400 172026 ene :Is Al6 SET? 


—_— — 


000010 #B1T3,R2 7 YES 
001000 172012 i$: * ghdeieemtanaet ING Al7 SET? 


000020 YES 
013737 001074 001230 2$: MOV ° [GET BANK # FOR -A- PORT 
JOS AISIOISIIOISIOIOOIIOISIIOIOISIOIOI ISIS ISIS ROCIO IIOI IOI III IOI ITI OTROS TTR AA 
FERRER ERE ERR KERR EEE REE EEE EKER KEKE KK 
TASES IO OCIS ISIS IIS EIISIUISIOI III IIIS IORI III II I tet 
FRR REE RE REE RRR RRK EKER 
FERRER RRR EERE KEKE REE ERK EEE EERE EER EER EKER KE 
RRR RK EERE RRR REE EERE EERE EER EEE EEE KEKK KK 
FO I RRR RIKER ERE KEKE KEE EEK KEE KKK 


TEMP2 
3$ 


001230 TEMP3 ,WORK 1 
3$: WORK1 ,R2 ;GET STARTING BANK # 
-R2 ;GET OFFSET FOR REG # 
:GET BANK # INTO 
UPPER BITS 


SRI GaRTaREH: 3 


ao a cl cd each ae en ce ee ed 
WONAUSWM—O 


R2 
171740 001230 :GET OFFSET FOR ADDR IF ANY 
001230 #2,WORK1 [CORRECT IT 
001230 #160000,WORK1  =CLEAR JUNK 
R2,WORK 1 :GET REG NO 
WORK, R2 


006422 171730 VECTRR: MDKINT,@RSVEC ;SETUP INTERRUPT VECTORS 
001072 177776 MOV Samer tare sPRIORITY 4 


sTHIS ROUTINE IS USED FOR DELAYING THE START OF THIS PROGRAM 
SIF POWER FAILED DURING TESTING. THIS WILL GIVE THE DRIVES TIME TO GET UP 
;TO SPEED. THE DELAY WILL BE ABOUT 3-5 MINUTES DEPENDING UPON THE PROCESSOR 


177777 00 : #177777 ,wWORK 
177777 : #177777 WORK 1 


001230 
001226 
003176 


DOPPNNNNDN NNN NNNNNNoNoNnononofnofory 


SARA WODWNANESWN 


Ww 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


— 
NMonoNnonong 
ww 

N 


JMP ADTST 
sROUTINE TO SETUP DISK BUFFERS 
ADD WORD COUNT TO STARTING Disk ADDRESSES 
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; COMPARE CALCULATED ADDRESS TO TERMINATING ADDRESS 
032737 001132 DISBUF: A deletes H+ OPERATOR SELECT PATTERNS 


BUF EXIT 7 YES 
1$: PC ,BLSZ :DEFINE BLOCK SIZE 
001230 MO BLOCK ,WORK1 
INCSEC: DMA 3+1 SECTOR COUNT 
061140 CMP #10000 ,DMA DONE YET? 
BUF EXIT 7YES 
001160 BLOCK 371 FROM BLOCK COUNT 
COMDAR :C S 


BR INCSEC 
001000 001132 : #BIT9,FLAG ORS? 
BE 1$ NO ERRORS DO COMPARE ON RSDA 
PC ;FRRORS DO NOT COMPARE RSDA 
001140 171544 ‘$: DMA, @RSDA COMPARE RSDA WITH DMA 
CMDAE SHOULD BE EQUAL 
AFTER TRANSFER RSDA AND DMA SHOULD BE = 
:1F NOT, RSDA IS NOT CORRECT. DMA CONTAINS 
[WHAT RSDA SHOULD = 
001140 DMA , GOOD :GET DMA FOR CORRECT ANS IN GOOD 
171530 @RSDA,BAD :GET RSDA INTO BAD 
; RSDA“BAD DMA=GOOD SEE COMMENTS 7 LINES ABOVE 
014112 PC ,PRNT > TYPEOUT? 


CMDAE :NO 
(SP) , WORK fe A Aa PC foe WHERE IT CAME 
ae? 
001226 MOV WORK ,- (6) ‘Bur WORK ON STACK 
T = TYPE STACK IN OCTAL = SUPRESS 
7352 001132 ‘ : FLAG ;LAST DISK BUFFER? 
007356 Bi BUF INX 0 





CERSB=C_RH70-RSO3 DATA AND RELIABILITY TEST MACY11 30A(1052) 1BAUG-78 08:26 PAGE 33 
CERSBC.P11 14-AUG-78 08:29 TST4 TEST FOR MULTI DISK MODE 


BUFEXIT: cLR DMA :CLEAR ADDRESS BITS LAST DISK BUFFER 
‘INC STOCK POINTER 
001132 AKH: 4500" FLAG [CLEAR LAST DISK BUFFER FLAG 
001132 weiTé, FLAG : RANDOM TEST OR ADDR TEST? 


1 
001134 2$: SWRDCT ,WRDCT 
BR EXTDR 
001132 1$: * ‘ehlacatetng 
A0B1 
2$ 
001134 WDCTB,WRDCT 
EXTDR 


BR ; T 
BUF INX: WOR ; CLEAR WORK2 FOR BLOCK COUNTER 
MO T WORKING DISK ADD_INTO WORK 
XINCSEC: WORK2 INCREMENT BLOCK COUNT 
CMP :CMP FOR LAST SECTOR 
+1 SURFACE LAST SECTOR BRANCH 
ZINC DMA 


001230 WORK 1 :DEC BLOCK COUNT 
FILLED STANDARD BUFFER YET? 
BR AKH WILL TAKE STANDARD SIZE WORD COUNT 
001232 XINCSUR: . : SETTING UP BLOCK COUNT 
C FOR NON STANDARD BUFFER SIZE 


z 


(SP) 
001134 MO (SP)+,WRDCT 

001172 RS04DT :RS04? 

001134 WRDCT SYES 

000200 001132 Is: #200, FLAG {SET LAST DISK BUFFER FLAG 


SESSSRESSS BETZ IE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
5 
1 
1 
1 
1 
1 
1 
1 
1 
7 
: 


~— = 
ae ek @) 
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THIS ROUTINE CONVERTS A WORD COUNT TO A BLOCK COUNT 
012737 900177 001160 BLSZ: #177, ,BLOCK ‘Ree? FOR RSO04 
5737 001172 T _— i ya 

000077 001160 1$: #77 BLOCK “PUT SECTOR SIZE_INTO BLOCK 
001134 2$: WRDCT R2 FETCH WORD COUNT 
001160 SARE THEY EQUAL? 

RORBLK ZYES 
001160 ;SET UP BLOCK OVERFLOW 
001160 OCK 
001160 AD BLOCK ,R2 

R2 


R2 

011566 PC ,RRR2 

001172 RSO4DT :RS04? 
1$ NO 


see 
DWNAWNEWN-OODNAUSW ty 


Re YES 
001160 1$: R2, BLOCK ;BLOCK COUNT 
PC XIT 


sROUTINE TO SELECT DATA PATTERNS FOR TEST 
ENTER FROM JSR R5,PASEL 


010344 000004 PASEL: AMEM , 044 + SETUP TRAP 
000006 MO #340 ,a46 VECTOR 
PATNU,RO SET UP a by NUMBER 
RO,R3 :GET PATTERN 


;MAKE IT 
R3 :TO PATTERN # IN LISTING 
R3,a4DISPLAY § :DISPLAY PATTERN # 
001226 WRDCT , WORK :SET UP WORK 
VADDR.R1 ;LOC. OF OUTBUFFER 
#42,R0 TEST FOR RANDOM DATA NUMBER 
RANDOM “GO GENERATE RANDOM DATA 
001132 #B1T2,FLAG “MAX TST? 


zNO 
017326 aad ~OUTBUF ;GET PATTERN 
000300 2$: MOV PATO(0) ,RO 


SIPLITIIIIE LILI LELE ELLE ELE LEE ELLE LEE ELLE LEE EEE 
TEAS EEO SISSIISISIISISISISII OSC IUIOIUIUIEOUUUUOUOUN OEE niin tines 
SRR REE EERE EERE REE REE EE REE E RK 
DY ZOO JRO III IIIS IO III III III IOI IOI IO k 
FREER EERE REAR REE REE EERE REE REE EREKEEEREEEEEEEEEREKE 
FERRARA AREER EERE EERE RRA ERE REE EERE REE ERE 
PCY 7s tok ti to ta IIIS IOI IOIIOIIOIIIOI OI IIIOIIIISIUIOIUIOIUIOIOIOIIIOIIOIIOISIUIIOR TOR fot t 
FREER REE ERE RREERRE RE REEKEERERERREREREEERREEEREREKERRREE e 

017372 P ;PRESET fee MANAGEMENT REG 

001024 TEMP2 IS i 7%: yest e. 


EST 2 
017330 : :DO NEXT INSTRUCTION WITH MM 
: y FILL BUFFER 
001226 ‘ wOR :DEC. WORK COUNT 


WWANWWNWWNINWNWNAA WIWWNWNWWNWNIWNNWWW 
BRISTLE IESE MESES SSeS 


WOON 


SOFERES 


; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
} 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


RE 
oon 
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CERSBC.P11 14-AUG=78 08:29 TEST I DISK MODE 


1369 007772 por ets BN ;LOAD NEXT WORD 
12737 000006 000004 PASEX: 6. 4 sRESTORE 
5037 00006 C ané ; TRAP 

1372 010006 000205 ;BUFFER FULL 
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CERSBC.P11 14-AUG-78 08:29 ST4 TEST FOR MULTI DISK MODE 


;RANDOM DATA GENERATOR SUBROUTINE 


210 RANDOM: MOV LONUM ,,LOSAV 

212 MOV HINUM,HISAV 
DY sete IOI ISIS IOI IIOIDIIOISISIUIOIIIOIUIIIIOIIIOIOIIOIDIOIIDIOIIIOIII II IOI I ott 
BAIA AIIIOIDI III IOIIIISIIISIOIIIIOIDIOIOIUIDIOUIOISISIUIOIIOIDIOIIOIDIOIIIIOIIOIIIDIIUIIOIOIIOIO I 
RI OIOICISIIIOISIDIIOIOIIIISISISISIOIIIIIIIISIOIOIISIOISIOIOIIOIOIOIOIISIIOIIIOIOIIOIOII IIIT III II 
ZO ZrO IOI IIIS ISIS IOIISISIIUIUISIIIIIIISIIIIIOIIIUIDIOIIUIIIIOI I tit t 
RAIA IOI ISOC IISISI ISI SIDS IUISISIIIOISIOIIOIIDIDIOIIIOIIUIUIUIIOIIUIIOI III tit 
DBAS IOI IOIDIISISIIOIDISIIOISIOIOIOICIOIUIOIOIIOIOIOIOIOI OI OT TOT TI OTE TTT TET TE TOT OT ST TST TIE 
JDC Zot OO SII ISISI IOI ISIC ISISIOIOIOIIOIDIIIUISIIIOIOIIISIDIIDIDIIOIDIOOIIOIIOIII I Ir 
DICIOIOIIIIIOIIIOIIIIOISIISIDIIIOISISIUIIISISIIOIIOIIOISIDIIOISIISIDIIOIOIIOIUOIOIOIDIIOIIIIOIDIITIOIIIIIIIOI III It 

017372 JS ° PRESET MEMORY MANAGEMENT REG 

010204 RAND 1 : LONUM ,,RO SET UP RO WITH 5 DIGITS LOW 

010206 MO ;SET UP R1 WITH 5 DIGITS HIGH 

7,R3 :SET UP SHIFT COUNT 
CLEAR R2 


C R LE 
SHIFT: SHIFT RO LEFT AN 
R ROTATE CARRY INTO LSB OF R1 INTO 
ROTATE CARRY OUT OF R1 INTO R2 
sDECREMENT R3 
BN CONTINUE SHIFT LOOP 
010204 ;ADDN IN NUMBER TO MAKE X 129 
R4 ng ny E CARRY 
010206 . DN IN gtr TO MAKE X 129 


R2 
001057 #1057,RO 
R4 


WWW 
JN 
ARO 


910204 010 
010206 010 


WSS 
NO 


BISBEE SE PERE SS 


WN 


ak kk tk ah ok dh ah th th dd 8 a th dd od od I 
NS 


WANWAWNAWS 
oO 


& 


Re 
047401 ea oR4 


3PROPOGA 

000006 #6 ,R2 ADDN HIGHEST CONSTANT 

000002 #2,R0 ;REPRIME RO ye hi HIGH DIGIT 
R4 :PROPOGATE CAR 

010204 MOV RO,LONUM ;PUT RO BACK iN "LONUM 


DDC GIES SISOS ISISIIOIIIOI IOUS II IIE IO IO OE 
FREER RRR KEKE ERR EREREEKEREEEEKKEEEREEKEKE EK 
DRE REE EERE REE KR RK EKER KER EKER EKER EE 
TOC 7 si te ta OIE OOO OOOOUOIOUIO I SOI IO iti tt 
KR REE REE RK KEKE KEKE EERE REE EEE 
TIAA AEST IIIS SIS ISCO IOOOOOOIOOOUIDIIOIUIOII IOI EI ti int ite 
DY 7 I II III II III III IOI IIIT TOTO Toto 
FERRER KER RRR KER EKER KERR EKER EKER KEE ERK KEE 

001024 T :1S IT A TEST 2 

1$ BRANCH IF NOT TEST 2 
017330 [DG NEXT INSTRUCTION WITH MM 
seas MOV [HOLD LONUM FOR PROGRAM 


010206 MOV R4,H ;PUT R1 BACK IN HINUM 
PP APATIIILILIILIELE TELE LETTE ELLE TET TTT TELE 
DEKKER REE REE EEK KEE EEE ERE ER EKER REE EE 
FERRIER ERK EE 
TOC 7 Or eS OOOO OO OOOO iri iit itt tienen 
+S RRERRRRRERERERER, CREA ERERERERRRERERERER REE EER EE EERE RE eee eee eee 
FR RR RRR KR ERR ERR EERE REE RRE RE RE RE RERER 


jelelelelolele) 
pr Pr PP Ps 
elelelelelele) 
© Re eee 
Vwi 

NOKRVARS 
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PAPA tities iii iri titi i titi titiitittiti titi iti tit itt) 
ERO OOOO OIIOIIOISIIUISIIOISIIIIOIOIOISIOIOIIUIDOOIISIIOIIIOODE Int tt htittit 
901024 TEMP2 :1S IT A TEST 2 
2$ BRANCH IF NOT TEST 2 
017336 RS ,MMUSE DO NEXT INSTRUCTION WITH MM 
2$: ~ Mg ;HOLD HINUM FOR PROGRAM 


001226 
RAND 1 
007774 EXGEN: PASEX ;RETURN TO PROGRAM 
LONUM: 


HINUM: 
LOSAV: 
HISAV: 
010214 013737 001220 001150 RESTOR: SAVWC ,SWRDCT ;RESTORE atta 


010222 013737 001150 001134 MO SWRDCT ,WRDCT WORD COUN 
010230 000205 R5 
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;RANDOM DATA GENERATOR SUBROUTINE 
[WHEN SWITCH = 0 WE COME HERE 


RAND : SET UP RO WITH 5 DIG LOW 
SET UP R1 WITH 5 DIG HIGH 
>SET UP SHIFT COUNT 


CL TCLEAR R2 
SHIFT1: SHIFT RO LEFT AND 
R ;ROTATE CARRY INTO LSB OF R1 INTO 
[ROTATE CARRY OUT OF R1 INTO R2 
;DECREMENT R3 
8 ae SHIFT LOOP 
DN_IN gt TO MAKE X 129 
R4 :PROPOGAT E CARRY 
010342 . DN _IN NUMBER TO MAKE X 129 
R ' ; TE CARRY 


001057 #1057,R0 
R4 


SESESRBARGS 


~ 
oa 
nn 


Re 
047401 ad oR4 


000006 #6,R2- 
000002 aoe RO 


010340 RO, LONUM1 

010342 MOV R4,HINUM1 
EXGEN1: RTS R5 + RE TURN TO PROGRAM 
LONUM1: 0 


HINUM1: 0 
TRAP OUT ROUTINE WHEN CREATING DATA BUFFER 


MEM: 
010350 +2 3 ASCIZ <15><12>' NON-X-MEM' ' 
000006 000004 4$: 46,044 RESTORE 
000006 ry ) ; TRAP 
100000 177570 > i amet pean. FE 


000000 
000137 001234 : @ABEGIN 
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THIS ROUTINE COMPARES THE DATA READ AGAINST THE DATA as YT 

SALL ERRORS ARE REPORTED TO THE OPERATOR. IF BIT 4 OF THE SWITCH 

REGISTER IS SET, THIS ROUTINE WILL CONTINUE COMPARING AFTER AN ERROR HAS BEEN 
[FOUND AND WILL REPORT UP TO 8 VERIFY ERRORS WITHIN THE SAME INPUT OPERATION. 


012737 COMPAR: MOV #-10, ERCOUNT ERROR RETRY COUNTER 
7 CY 7 feito 7 III II IIRC I ICICI IOI III TAIT AI III AIIM 
DIOR RIOR III ICICI RIOR IIT III IITA ADIT IAI IISIAASSSSISSSSSIASISIAS ASSAM. 
TAIRA III I IOI ICICI IIIT II IOI ITT AIT IISA I SSIS SASSI SAAC 
TY 7 set RR III II IOI III ICICI III III IOI IIA IIIA 
SIRO RI ROR I REI ICICI ITO IIIT III III AI TOTS AISI ASIII ASSSSSASSS SIA SASA 
SIC I IORI IIIT ICIIOIOIC RIOT IIIT IIIT I AAAI SII ISAS SSIS ASASSSSASASS ASA 
TC Zea a I II IAS IIS I IIIS IO IIIT IIIT TTT III IIIS 
ame wea Fo et TIT iii iiiititiitiiiitii iii iii) 
;PRESET MEMORY MANAGEMENT REG 
msi 3. PLAG2 ;DOING COMPARE 
T ,WORK2 [GET THE WORD COUNT 
VADDR’ SAVE 7SET UP OUTBUFFER POINTER 
SWITCH :CLEAR RANDOM PATTERN FLAG 
7GET RANDOM BASE NOS. 


:TEST FOR PATTERN 0 
‘CLEAR COUNTER 
‘INC COUNTER 
‘INTERRUPT YET? 


oo 
— 
N 
Ww 


eee 
Solsss 


Seue 


TEST FOR INT 
‘OONT FOR INT BEFORE COMPARING~ 


BR CMPLP1 
001142 : 31S THIS RANDOM PATTERN? 
CMPLP1 BRANCH IF YES 
2 INTERRUPT YET? 
WAIT 


010232 

010340 . GOOD GET EVEN RANDOM WORD 

001200 P SET RANDOM PATTERN#@FLAG 
BR WRD CMP 


001200 2$: 
010342 


BR 
001142 CMPLP1 : 
000300 


NONONINNNNN 2 SS SO 
CONAUSWN—OOONOUSWN—O 


RR ot oo ean 


V 

DOCY Ze kk tot tat III III IOI III IOI IOI TORII TOOT TORTI TIT 
LR RRR RE KARE REE EE REE RE REEREREREREKEEEREREEEEEERRE EERE EERE REE 
REE REE REE EERE REE EREEEREEEREEREEREREREEER EERE ERE RERE RR ERERE 
TY Z 0 i i Be te IID I IRR RII RE ERE EERE REE ER ER ERR KK 
LER RRR EERE REE EERE RR ER EERE EERE EERE REE EER EERE RERERRER EEE EH 
LEAR ERR ERE RRR EERE ERE EERE ERE RA REE EERE EERE RR ERK 
UY Ze i RD RRR KER ER ER ERE RR ERE RR ER EERE REE E EEE 
MORSE RESLS£ALL£S ES PSE ESSE SEES ESSE SESE EERE E RAS ERE RRR RRR R RR RAR SARS A RARE SDDS 


WRDCMP: TST TEMP2 


BYKARAYASS 


DIAM 
fw 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


rs 
=O 
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#160000, SAVE CLEAR PAR REG 
#60000, SAVE 7SET PAR 3 

1$: GOOD , @SAVE s COMPARE DATA 
WDERR WORD R 


BNE IN ERROR 
WRD INC: WORK2 :DECREMENT THE WORD COUNT 
BEQ ADAM sEXIT_ROUTINE IF ZERO 
[UPDATE PATTERN ADDRESS 


ADD #2,SA 
XY 7 AAA SIE ISSO OOOO III III Ii ttet 
FREER KEKE REE EEEREREEREREEREREEREREKEEREEKEKEEKREKEEEEK 
TIAA ASO ISI ISIOIIOISI ISITE TSI IIIT III III I 
TY Z 9 HH II ICD IIIT IIT SOIT IOI TOI TOTO ITO TOT III II ISIS IAI SAIS SIA II AI 
FARRER KERR KEKE EKEREEEEREKEKKEK EK 
FERRE KKK REE RRERKRERS. EKEKKKEKEKKEE EKER EERE KEKEEEEEKEKREEKK KEKE 
YZ 5 9 9 IH HR ICD FITTS IIIS AAAS ASSIS ASI SISA IIS ISI ISI AISI IAA ASS 
SKK KK KKK KR KKK ERE KERRIER EKER EERE EEE KKK 


TEMP2 


1$ 
001154 #100000, SAVE 31S 4K DONE 
1$ BRANCH IF 4K NOT DONE 
001154 #100000, SAVE eat hen PAR BITS 
#60000, SAVE 7SET PAR 3 
#200 ,.KIPAR3 UPDATE PAR 3 TO NEXT 4K 
007142 : MP #42 ,PATNU 31S THIS RANDOM PATTERN 
CMPLP ;BRANCH IF YES 


RAMANA aan 
oO 


SORES SS 


BR WRD CMP 
001126 : #B113,FLAG2 ; DON 
010744 R5 EXIT THIS ROUTINE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SK 
DK 





5 
CERSB-C ron DATA AND RELIABILITY 4 33 MACY11 30A(1052) © 1 e2AUG-78 08:26 PAGE 41 
CERSBC.P11 14-AUG-78 08:29 TEST FOR MULTI DISK MODE SEQ 0054 


001202 WDERR: INTFLG :DID INTERRUPT OCCUR YET? 
B WRD CMP BRANCH IF NO 

900100 177570 #B1T6,SWR sTRY ALL? 
BNE 10$ ZYES 

001204 Sata ;FIRST READ ERROR? 


170034 @RSCS1 sANY ERRORS? 
BM ADAM YES DO NOT COMPARE 
170150 : GOOD , @SAVE 


170144 @SAVE ,BAD GET GOOD DATA 
LOG C oan on - pee 
001000 177570 IT + | al aa SLOOP ON ERR 


:NO 
(6) + SYES UPDATE SP 
014112 : oe 3 TYPEOUT? 


RAVSSS 
SRVSWO 


co 

Se 
elojlelelelelelele) 
VIVIW 

MOK 


Ahab AP Ab Ab AD ADAP AL AD Ab Abed bd uv 
Ww 


MAW 
BLFARANLSSE 


011036 
014112 


011070 
001216 


177776 
001154 
001154 


001160 
001134 


001232 
001172 


000200 


cote 


PC,PRNT 
13$ 


SAVE, -(6) 


13$ 
SAVE ,~(6) 


BLOCK 
WRDCT ,R2 
R2 


WORK2 ,R2 
RSO4DT 


7$ 
#200,R2 


:NO 

3 -ASCIZ_<15><12>''COMPARE ERR"’ 

;DATA_COMPARE ERROR 

HAD TO DO IT THIS WAY SO 

; PROGRAM COULD LOOP ON ERROR 
ASCIZ '" ADDR= 

71S MEM MGMT ON? 


GET PS 

;GET VIRTUAL ADDR 

:CONVERT TO PHY AND TYPE 

; CONT 

:GET ADDR 

TYPE IT 

: CLEAR THE BLOCK COUNTER 

>GET THE WORD COUNT 

CORRECT FOR DA CALCULATIONS 

imo DISTANCE OF FAILURE INTO BUFFER 


[RS03 
* T 


B 
000100 : #100,R2 
: 8$ 


001160 BLOCK 
2$ 


SESRGRSSSss 
NAMEWNS 
eleleleleleleleleleleleleleleleleleleleleleleleleloloelolelolo) 


as i a a ad od 2 od od 
a ed ed ed od od od nd 


UPDATE BLOCK COUNT FOR EACH 400 WORDS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ce a ee cee a ae ee ee ae ee a ce ee ei ae ad ae ed 
= nd 
RSSVSFNENSKSRVGANEKS 


oO 
pa 
oO 
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RSO4DT 3RS04? 
4 :NO 
#200,R2 ;RS04 
6$ 


; CONT 
#100,R2 [RESTORE POSITIVE NUMBER 
DMA, WORK 1 :GET HEAD AND SECTOR ADDRESS 
BLOCK ,WORK1 


PC .PRNT A et 


we :.ASCIZ ' * DA="" 

WORK1,-(6) [PUT WORK1 ON STACK 
; TYPE ee IN OCTAL = SUPRESS 
Piaget <15><12> 


_ 
=" 
oO 
= 
a" 
WRAWVORUS 


AXARAGRKAAAO 
Wh 


ee ee ee ey 


SSSI 


:NO 
UPDATE ERROR COUNTER 


RRR RRR 


S28 


lelelelelelelelelelelelelelelelelelelelelo) 


JMP WRD INC 
001132 CLEAR: 8 #BI1T2,FLAG :XFER TEST? 
010000 001132 #B1T12,FLAG SREAD? 
2$ “NO 


DDC] 230 IO IOI IO IOC IIS CISD ISOS IOI OI I tok 
SAREE EERE ERE REE REE RERERKKE  REKERERERE KEE EEREERE RE KEEKKEK 
FERRER RE RE KREREEEKRE KR EREREREERERER EEE REEEEKKEKKKEEK 
SKY Z 8 9 III III TOT TOT TOOT TOTO TOTO IOI TOTO IOI TITAS AAAI ASAI ISAS ISIS III AI SAS 
PRE R RR EKEREREEREKERKKREEKEERRERERREEEREEEEEEEEEEEEEEEEEEKKKEKE 
SRR RRR EKER EERE EERE KEKE KEKE KEKE EERE EERE EEE EEE 
DY Zoo J OIC III IOIIIOII III IOI IOI IOI tot 
RRR KKK RRR RRR REE EKER REE REE EKER EERE EEE EEE KERR KKK 


013701 001122 S$: 3GET STARTING ADD OF BUFFER 
0137 SNOW 


a kk dd od od = I 
— et et = 2 SS) 2 2 2 SS =) SS 6 SS 
— et oe SS 2 ot SS SS SS a Se 


WWNWWG 


Wn 
OonNorn 


WW 
BN 


PRESET MM 
001024 TEMP2 513 3% Vest @ 
1$ BRANCH IF NOT TEST 2 
017330 : pe gh ME a WITH MM 


RARE 
RUAN 


SEES 


4$ 
001126 #B1T3,FLAG2 “DONE WITH COMPARE 
: R5 ;NOW GET OUT 


S 
~ 


017326 : SAVAST,QUTBUF ;SET STARTING ADDR FOR OUTBUF 
001122 MOV SAVAST , VADDR SAVE OUTBUF ADDR 
MMAVA MEM 


NG 
“SET UP MEM MGMT 
‘SETUP MEM MGMT 


seo oes oS 
kl ee ae a ee ee ed ee ed ed ed eed ed ed eed 
a_i od 


OOOCOCOCSCOoO BDOODCOOCOCOCOCO 
> 
N 


VADDR 
001124 017326 MO PHADDR. - OUTBIIF 
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TYPE CAN NOT WRITE BLOCK 
014112 WTNO: PC,PRNT 3; TYPEOUT? 
BN 1$ NO 
006674 »~NOWRIT 
001204 1$: or ;CLEAR ERR COUNTER 
;ROUTINE TO SET UP STARTING age tay FOR ALL PORTS 
‘AND TO CREATE WORD COUNT = 20K 


EXTMEM: MOV STAMEM,R2 GET BANK # 
TST Re :DID HE TYPE 0? 


‘YES MAKE 1 
;BRANCH IF MEM MGMT AVAILABLE 


3$: 


VWI SEES 


~RRR2 
R2,SAVAST ; SAVE A STARTIND ADDR 
e3 ;GET we 


R2 
R2,SAVMGA SAVE ADDR FOR A PORT 
BF Ae :GET 4K BLOCK COUNT 


STAMEM, R2 ‘LIMIT WC TO MEMORY SIZE 
R2 :NO CONVERT TO wC 
PC ,RRR2 


#77,Re :CLEAR BLOCK COUNT 
R2,SWRDCT : SAVE -A- PORT wC 


BR 3 
24$:MOV460000, SWRDCT;MAKE 20K 
7$: RTS PC 


ed a a ed nd kd td od a od 2) = 2) 
LAPLEL AAAS BS SES 
N 


Quis 


lelejalelelelelelelelelelelelelelelelelelele) 
MAMMAL 


oO 
Ww 


RRR2: 


MMW 
SRVSE F 


88 


000200 177570 WATT: oe ll na oh IN BACKGROUND ? 
7N 


012154 PC ,.XWAIT YES 
2$ : CONT 


AXXO 
Mo 


YNYNYN 
SSELE 
SOOoooooo COCOC0OO CGOCOO 


PC 
014112 cf PC ,PRNT 3 TYPEQUT? 
1$ NO 


BN : 
000702 -RECOV 
001204 MOV LOPCNT ,~(6) :GET COUNT 


. sTYPE IT 
000757 girerur 


AM OBLO 


BERR 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Set td od od os i i on — 


me a a et ond) od 2 od 
NNNNNNNG 

med aed nd aed nd nd ee 

NOU SW -O 

Aaroo 
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001216 STMM2: ;MEM MGMT? 

BN YES 
012142 MDON “GET OUT 
SAVE R2 
=CALCULATE PHYSICAL ADDR 


SEAR 
www 
NMAOLO 


172342 


WNNNOAO 
ERVSON 


:THIS BIT is Al7 
ZCLE 


Re 
000040 001126 + hdd, 


000040 001126 #BITS ,FLAG2 
000020 001126 1$: “>, eatin 


ron 
AROAO 


2$ 2CL 
001126 #B1T4,FLAG2 7SET FLAG FOR A16 
2$: R2,PHADDR [GET PHYSICAL ADDR 
SAVE .R2 :SET UP MEM MGMT 
#200,R2 
R2, Q#KIPAR2 


R2 DIK IPAR3 
#200,R2 

R2 ark IPARG 
#200,R2 


R2, @#KIPARS 
#20 0 Re 


UMS & 


elejlelelelelelelelelelelelelelelelelelaleleleolo) 
oO 


BD DD ed ed ed ed od ed wd 
— eet = 2s 2 2 = Ss 2 SS ss Ls SS ss 


NNN NNN NNNNNS 


N 
N 


AR6 
#300256. -400+UP+RW, afk IPDRO 


* 
#200*256. -400+UP+RW, aK IPDR6 
#200*256.-400+UP+RW, a#K IPDR7 
#177600 ,a#KIPAR7 
000,R2 
; TURN ON 4 au MODE 
> TURN ON MEM MGMT 


ON: RTS 
MANAGEMENT ABORT ROUTINE FOR WRITE UP 
104402 000541 T0: Ag MTRAP 

HAL 


000000 
000002 RT] ; CAUSED THE ABORT 


UNSER ARRSEK 








5 
CERSB=C_RH70-RSO3 DATA AND RELIABILITY gt! MACY11 30A(1052) °18-AUG-78 08:26 PAGE 45 
CERSBC.P11 14-AUG-78 08:29 ST4 TEST FOR MULTI DISK MO SEQ 0058 


;BACKGROUND TEST FOR INTERRUPTS 


002000 001126 XWAIT: #B1T10,FLAG2 ;WAIT ING IN BACKGROUND TEST 
970000 012274 MO #70000 NPRCNT :SETUP TIMEOUT COUNTER ’ 
012277 ANPR1+4,R :SETUP WAIT LOOP 

000200 #00. rt 


2s: 

(R1)+ 
-(R1) 
(R1)+ 
-(R1) 
(R1)+ 
-(R1) 
(R1)+ 
-(R1) 
(R1)+ 
-(R1) 
(R1>+ 
-(R1) 
(R1)+ 
-(R1) 
(R1)+ 
-(R1) 
1$ 


012274 : NPRCNT 
2s 


000510 -NOINT 
!DA!WC!DS 
001234 


JMP @A4BEGIN 
002000 001126 NPRRET: at -~ slab crap ; CLEAR BKGROUND FLG 
NPRCNT: 0 
NPRi: 0 
;CLEAR ERROR TABLE 


ERRCL: #20,R4 CLEAR 
1$ MO Z ERROR 


ABLE 
[DONE YET? 
>NO 


~ 
SS 


ARITHMETIC OPERATION FAILED RUN DIAG 


co~N Wr 


8 


CPS SSLEER PR Rp Rae: 
2 


S CLEAR 
[PASS COUNT 
ee DROPPED DRIVES 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


0000 
ed ed ed ed od 
MOMGMONMNNNoNof~y 
WINWAIWNANAW 

Ww VUN So 


— -2 
=o 
OOSO00000 


MAMA SMO 
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;RH70 POWER FAIL TEST #1 
:THE STARTING ADDRESS FOR or’ WRITE POWER FAIL ey IS 270., 
7A MESSAGE WILL BE TYPED LOAD SW WITH UNIT # AND CONT. 
; OPERATOR NOW HAS TO POAD THE a # IN OCTAL INTO THE su REGISTER 
3 IN BITS 00-01-AND 02. THEN HIT CONT. THE PROGRAM WILL 
SWRITE THE rte DISK WITH A 195052 PATTERN. THE PROGRAM WILL THEN 
:TELL OPERATOR TO POWER DOWN. UNTIL THE POWER FAIL, THE PROGRAM WILL 
: CONT INUE WRITING THE SAME PATTERN ON THE DISK. 


ab 
m 


00 00 00 Co C0 00 00 CO 
aah aut a onl ant ani all 


SHOULD 
THE PROGRAM RESTARTS AND CHECKS FOR WRITE ERRORS. 
Y ONE ERROR IS ACCEPTABLE. THAT ERROR MAY BE AN OPI (BIT13 RSER)OR A DCK 
BIT 15 RSER). IF THESE ARE THE ONLY ERRORS THAT OCCUR, THE DRIVE IS Ok. 
IF NO ERRORS OCCUR, THE PROGRAM WILL TYPE OUT ‘Ok’. 
THE PROGRAM WILL THEN TELL YOU WHEN TO POWER DOWN AGAIN 


:***ONLY ONE ERROR IS CONSIDERED ACCEPTABLE®*** 


000500 PFT: #590, SP :SET UP STACK 
C EMP? 
,LOADSW 


PC,VECTRR ;SETUP INT VECTOR 
001164 @4SWR ,UNNUM SA VE IT 
JS PC,FNDTYP TST +4 a Ras 04 
PFWATT: > CLEAR 
S PC ,POWF AL WRI TE Tg 85° ON DISK 
PFWAT: 


oo sco ye EEE EO 


ak kk i a a sh 8h 8 ot I 


od ei 
pes 


aed aed al aed lt 
OURARG 


DMA 
000024 MO SET UP POWER FAIL VEC. 
000026 


MO 
001176 MYBYWR: “ V #161. CMD sWRITE WITH I/E 


:D0 IT 
011600 PC,WA [WAIT FOR 7 stele 
001000 001132 3$: mits, FLAG ay ERRORS? 


'DA!DB : 
177777 166376 #-1aRSAS ZCLEAR Att 
166370 @RSER S ERRORS 
007204 : Js PCDI SBUF :SET UP NEW DISK BUFFER 





CERSB-C_RH70-RSO3 DATA AND RELIABILITY 


CERSBC.P11 


1853 
1854 
1855 
1856 
1857 
1858 

859 


§ 


Se 


sigegatiaaie 


NS 
oO 


aod and ed ened 
00 00 00 00 
NNNN 
SwWN— 


012502 
0 


— 
nm a] 

vw 

S 

oO 


56 
12564 


; 
012612 
012620 


012624 
012632 


012662 
012664 


14-AUG-78 08:29 


012737 
000000 


012737 


000137 


012474 
001140 


001072 
000151 


001126 
012604 


100000 
012370 
012634 
012624 


000200 
012466 


001156 


177776 
001176 
177776 


061132 


001126 
166264 


001126 


000024 


000024 


166160 
166162 


TEST 
TST4 


UPCHK : 
1$: 


CHKDAT: 


3$: 


2$: 


DOWN: 


UPP: 


MACY11 
TEST F 


5 
52) “18°ANG=78 08:26 PAGE 47 


0A(10 

MULTI DISK MO 

#1$,HRDER ;RETURN HERE IF WRONG DRIVE INTERRUPTS 
zINIT DRIVE 

PRIORITY,PS 

#151,CMD ‘WRITE CHECK WITH I/E 

PRIORITY,PS : 

PC WATT ;WAIT FOR INTERRUPT 

#31T9,FLAG ZANY ERRORS? 

'DB!DA , 

#B1T15, FLAG2  ;SET ERROR FLAG 

@RSER [CLEAR ALL 

#~1,aRSAS s ERRORS 

PC ,DISBUF :SET UP NEW DISK BUFFER 

CHKDAT 

FLAG2 sANY ERRORS? 


;YES 
os OE * ASCIZ <15><12>' 0k" 
#BIT15,FLAG2 CL EAR ERROR FLAG 

PFWATT *GO WAIT AS a ANOTHER 


“POWER F 
;POWER DOWN ROUTINE = ABORT DISK AND HALT 
MUPP , 24 7SET POWER FAIL VECTOR 
ADOWN, 24 
#500, SP 


1$: 


UNNUM, aRSCS2 ;GET UNIT # 
+ ll -@RSDS WAIT FOR DRIVE READY 


UPCHK 3GO CHECK DISK 


SEQ 0060 
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sPOWER_ FAIL TEST #2 

i TEST WILL TEST THE SAME DRIVE THAT WAS TESTED IN THE 1ST POWER FAIL TEST 
THE PROGRAM WILL WRITE THE COMPLETE DISK ps My A_ 125252 PATTERN AND WILL 

THEN TELL THE OPERATOR TO POWER DOWN THE PROCESSOR. 

; THE PROGRAM WILL THEN WRITE CHECK THE DISK WHILE WAITING oH A POWER FAIL. 
WHEN THE POWER FAIL OCCURS, THE WRITE CHECKING IS ABORTED AND 

>THE PROCESSOR WILL HALT. 

THE OPERATOR SHOULD THEN TURN POWER BACK ON, THE PROGRAM WILL 

sSTART WRITE CHECKING THE DISK AGAIN 

3***NO ERRORS SHOULD OCCUR. *** 

; THE PROGRAM WILL TYPE OUT ‘'Ok'’ IF NO ERRORS OCCUR. 

;THE PROGRAM WILL THEN TELL YOU TO POWER DOWN. 

;DO NOT POWER OFF THE PROCESSOR AGAIN UNTIL THE PROGRAM TELLS YOU SO. 


PFT2: #500, SP ;SET UP STACK 
C TEMP? . 
#B1T9,FLAGZ CLEAR POWER FAIL 
WPWRFI,HRGER = RETURN fe IF WRONG DRIVE INT. 


007130 J PC,VECTRR CTOR 
013152 PWRFL2: , WRITE 195289 ON DISK 
BR PWRFL [WRITE CHECK 
PWRF 1: SINIT DRIVE 
001140 PWRFL: CLR DMA 
013102 000024 MO SET UP POWER FAIL VEC. 
000340 000026 MO 
001072 177776 CHKDSK: PRIORITY ,PS ENABLE I/E 
000151 001176 MO #151,CMD [WRITE CHECK WITH I/E 


:D0 IT 
011600 PC WATT WAIT FOR INTERRUPT 
001000 001132 3$: + i it oni ERRORS? 


ox 


SESRaE 


1 
1 
1 
1 
1 
1 
1 
; 
1 
1 
1 
1 
7 
1 
1 
1 
1 


OOOOOOO0O0O0N0 
Pm Pox Ps Pe Pe P= Ph P- PP 4 
WODWNAUSWN—O 


; !DB 7YES 
001126 . #B1T15,FLAG2 SET ERROR FLAG 
@RSER 


CLEAR ALL 
166022 #~1 ,ARSAS 7ERRORS 
2 PC ,DI SBUF CHECK NEXT BUFFER 


CHKDSK 
001126 ABIT9,FLAG2 DID POWER FAIL? 
PWRF L 


001126 rs FLAGE ZANY ERRORS? 
013056 — vaeciz <15><12>' Dk" 
100000 2 : WBIT15,FLAG2 CLEAR ERRORS 
2737 001000 #B1T9,FLAG2 *CLEAR POWER FAIL FLAG 
000710 : PWR | 2 
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1933 
1934 
1935 
1936 
1937 
1938 
1939 
194 


who BRASILIA GAZES ERELEL RE 


94 
9% 
94 
94 
94 
94 
94 
94 
94 
95 
95 
95 
95 
95 
95 
95 
95 
95 
1960 
96 
96, 
96 
964 
965 
966 
967 
968 


012737 
000000 


012737 
0127 


SOOOCOC0OO CO 
ubababababa aba 
WANNA OW 
hat abababanb 86 cab and 
VSfwrne- —oO 
OAOnwsorw of 


012737 
737 


14-AUG-78 08 


729 


913112 


013102 
000590 

101164 
001000 
900200 


000024 


000024 
165702 


061126 
165676 


001132 


TEST 
TST4 


K 5 
MACY11 30A(1052) 18=AU 
TEST FOR MULTI DISK MOD 


te 08:26 PAGE 49 


ROUTINE TO ABORT DISK DURING POWER FAIL 


#PWRUP , 24 


UNNUM , ARSCS2 
#B1T9,FLAG2 
#B1T7,aRSDS 


PWRF 1 


SET UP RESTART 


RESET POWER FAIL VECTOR 


;GET UNIT # 

;SET POWER FAIL BIT 
;WAITING FOR 

:DRIVE READY 

3;GO CHECK DISK 


ROUTINE TO WRITE THE COMPLETE DISK 


:WITH 125252 PATTERN 


;WRITE CHECK AND REPORT ERRORS IF THEY OCCUR 


[REPORT '‘OK'’ AT COMPLETION 
POWFAL: MOV #20,PATNU 
BIC #BI1T2, FLAG 
#B1T12,FLAG2 
DMA 
#20000 , OUTBUF 
#20000, VADDR 
#10000, SWRDC 
SWRDCT .WRDCT 
A0B1 
OUTBUF , BUF 
R5,PASEL 
#161, CMD 
PC WATT 
#151,CMD 
PC WATT 
#BIT9,FLAG 
1$ 
'DBIDA 
PC DI SBUF 
WwRDNW 


ate 
PC 


SET UP PATTERN 
:CLEAR XFER MODE FLAG 


GET STARTING ADDR FOR BUF 


T .. ;SETUP WORD COUNT 


3;A_PORT ONLY 

:SET UP CURRENT ADDRESS 
GENERATE DATA BUFFER 
a | WITH I/E 


:D0 I 
WAIT FOR INTERRUPT 
sWRITECHECK I/E 


:D0 IT 
WAIT FOR INTERRUPT 
: ERRORS? 


:YES 
CAN NOT WRITE WITHOUT ERROR 
SET UP NEW DISK BUFFER 
WRITE NEW BUFFER 

;-ASCIZ <15><12>' POWER DOWN’’ 





5 
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CERSBC.P11 14-AUG-78 08:29 ST4 TEST FOR MULTI DISK MO 


1977 032737 000019 177570 OuT: #BIT3,SWR ;TYPEOUT ERROR COUNT? 
001532 B 1$ 


1978 ; 
1979 é RS CLEAR UNIT # 

001130 001166 DROP ,UNITSV sRESTORE ALL DRIVES 
001166 001226 [GET UNITS ON SYSTEM 
000401 MO #401,R : SETUP TEST FOR UNITS 
001226 4$: pb WORK IST HIS UNIT ON SYS 


BN 
5$: SINC UNIT # 
:SAVE UNIT # 


:GET NEXT DRIVE 
[FIND NEXT DRIVE 
013426 ; — : ASCIZ <15><12>" UNIT "' 
MOV ‘PUT R4 ON S 


: TYPE STACK IN OCTAL = SUPRESS 
013720 PC,GETERR ;GET ERROR COUNT 

MOV R3,R4 *RESTORE UNIT # 
DE ok +2  ASCIZ <15><12> 


*WRTERR 
ae :ASCIZ "'S "' 
WRITER, -(6) ‘PUT WRITER ON STACK 


;TYPE STACK IN OCTAL = SUPRESS 
+2 ; ASCIZ <15><12> 


*RDERR 
+2 :.ASCIZ ''S 
READER, -(6) :PUT READER ON STACK 
:TYPE STACK IN OCTAL ~ SUPRESS 
013540 +2 ; ASCIZ <15><12> 
000642 -WCKERR 
013554 ;ASCIZ ‘'S "' 
001210 MO bteaR. -(6) “PUT WCERR ON STACK 
:TYPE STACK IN OCTAL = SUPRESS 
013572 .+2 : pASCIZ <15><12> ‘COMPAR E ERRS "' 


001214 MO COMERR,-(6) COMER STA 
:TYPE STACK IN OCTAL - SUPRESS 
013624 .+2 12> 


BR &$ 
001130 001166 3$: DROP ,UNI TSV : E 
000002 1$: #2,SP ai he SP DUE Ys JMP EXIT FROM JSR ROUTINE 
001120 AOB1 :SET A OR B PORT FLAG 
000040 177570 3 15, SR :TYPEOUT PASS COUNT? 


BNE 3NG 
013664 — > ASCIZ et poeiay re PASS *' 
001006 MOV PCNT+2,-(6) *PUT PCNT+2 ON STACK 

: TYPE STACK is SC TAL - SUPRESS 
013712 gece : ASCIZ <15><12> 


ed aah aed el ed eet at eat aol ct cat ee ah cl eld ead 
SENNSAARVOR ROR 


SSSSSPRSSS SSS SSRSSRSE LES 


Sscesssesssesesssocoooeoooo 
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CERSBC .P11 14-AUG=78 08:29 TEST FOR MULTI DISK MO 


013720 GETERR: :GET LOC IN 
0 RR TABLE 


GET WRITE ERRS 
GET READ ERRS 
GET WRITE CK _ERRS 
GET COMPARE ERRS 


$DONE - BELL AND SCOPE ROUTINE 


DONE: SCOPE ; TERMINATIONG SCOPE FOR LOOPING 
000001 001006 #1 ,PCNT+#2 SADD_1 TO THE PASS COUNT 
001004 PCNT :MAKE IT DOUBLE PREC. 
000042 4$: MOV 442 ,RO :GET MONITOR ADDRESS 

5 $END1 IF NONE 


$ENDAD: JSR 7,(0) :;GO TO MONITOR 
000240 000240 240,240,249 ;SAVE ROOM FOR ACT11 
003176 $END1: JMP ADTST RETURN 


014012 -TBIT: ;T BIT FLAG 


014014 012702 000001 - LOGW: #1,R2 ;LOG WRITE ERR 
014020 005003 CLIND: R R3 :CLEAR INDEX FOR TABLE 
014022 000413 BR ADDRR 


914024 012702 000400 -LOGR: #400 ,R2 :LOG WRITE ERR 
014030 000773 BR CLIND 


014032 000001 .LOGWC: . ;LOG WRITC CK ERR 
014036 000002 SETIND: #2,R3 ;SET INDEX FOR NEXT WD 
014042 000403 


014044 000400 -LOGC: #400,R2 ;LOG COMPARE ERR 
014050 000772 BR SET IND 


001204 ADDRR: :1ST TIME ERROR? 
BNE 1$ ;NO_DO NOT foe IT 
001164 MOV 7 2 GET UNIT # 
:POSITION IN 
R3,R4 SERR TAB 
017266 R2,ERTAB(R4) 3 
014112 ; + Teal : TYPEOQU 


3sYES 
014760 - , PC ,DRP ;SHOULD I DROP DRIVE? 


032737 020000 177570 PRNT: BIT #B1T13,SWR ; INHIBIT TYPEOUT? 
000207 RTS PC 
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CERSBC.P11 


2080 
2081 
2083 


BEER RESK 


2 So 2 
POPPIN @ 2 Ss Ss 2 SS es 


aad add ocd aod od 
RALVLSSRVES 
leleleleleleleloleleleleleleleleleleo) 


o 
Ww 


4 SS 9 3 3 oo 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
r4 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


me ee eh mee ed ed ed ed ed od od =) = oS 
AWWUirohoronronrununluNoo ooo 
PUNYSVRVURRRUNLYSaNonRWwusmOSewER 


RRRVEKANSENSERSN _ 


RRS 
ee 
RAE 


052737 


104402 
017746 
104404 


104402 
017746 
104404 


000004 
016134 
014142 


014160 


014410 
164416 


000004 
014440 
164370 
000010 
014470 
164334 


001126 RSREG: 


016134 
016134 


016134 


016134 


016134 


016134 


MACY11 30A(1052) 
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SDONE - BELL AND SCOPE ROUTINE 


#B1T2,FLAG2 
HLTCT 


one 

BAD ,~(6) 
a2 

GOOD ,-(6) 
ao Or 
@RSCS1,-(6) 
<n 
@RSER,~ (6) 


2-+2 
@RSCS2,-(6) 
rr 
a 
@RSCS3,-(6) 


ae 
@RSBAE ,~ (6) 
one 
#200,.HLTCT 
SEEC 

HAS, .HLTCT 
3$ 


eet? 
@RSAS ,~ (6) 
ABA, .HLTCT 
4$ 


sae ae 
@RSBA, - (6) 
ADA, .HLTCT 
5$ 


aa oe 
@RSDA,-(6) 
MWC, .HLTCT 
6$ 


— 
@RSWC , - (6) 
#DS,.HLTCT 
9$ 


eet? 
an<DS,-(6) 


7SET ERROR FLAG 


;SHOULD WE TYPE GOOD AND BAD 


[NO 

;-ASCIZ_*BAD="' 

;PUT BAD ON STACK 

; TYPE STACK IN OCTAL 
Z ** GOOD=" 


“PUT GOOD ON STACK 
;TYPE STACK IN OCTAL 


; ASCIZ ** CS1="" 
[PUT @RSCS1 ON STACK 
TYPE STACK IN OCTAL 


;ASCIZ _‘* ER="' 
ry @RSER ON STACK 
;TYPE STACK IN OCTAL 


; ASCIZ ** CS2="" 
SPUT aRscso ON STACK 


aRSCS3 ON STACK 
TYPE STACK IN OCTAL 
Py IZ ** BAE=’ 


T @RSBAE ON STACK 

; TYPE STACK IN OCTAL 
+ ASCIZ <15><12>°"" 
PRINT SECOND SET ? 


i YES 
aad ER ? 


;ASCIZ '* AS="' 
PUT @RSAS ON STACK 
: TYPE STACK IN oti. 
;PRINT BUS ASSRESS 


:NO 

;ASCIZ ** BA="" 

[PUT @RSBA ON STACK 
i TYPE Aa IN OCTAL 
PRINT DA ? 


:.ASCIZ '* DA="" 
‘PUT @RSDA ON STACK 
AR STACK IN OCTAL 


> ASCIZ '* WC=" 
:PUT @&SWC ON STACK 
i TYPE gore IN OCTAL 
[DRIVE STATUS 


+ ASCIZ * pes 
:Pul @RSDS ON STACK 
TYPE STACK IN OCTAL 





B 6 
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CERSBC.P11 14-AUG-78 08:29 SDONE - BELL AND SCOPE ROUTINE 


2135 014534 032737 000002 016134 9S: BIT #0B,.HLTCT ;PRINT DATA BUFFER 
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CERSBC.P11 14-AUG-78 08:29 $SDONE - BELL AND SCOPE ROUTINE 


014542 PTDONE 
0 1044 2.t2 
@RSDB ,-(6) 


Re 


NO 

3 ASCIZ °* 0B="° 

;PUT @RSDB ON STACK 

3; TYPE STACK IN OCTAL 
ET OUT 


ee 


PTDONE ; 
#200, .HLTCT ;CLEAR COMMON BIT 
#DT,.HLTCT ;PRINT DRIVE TYPE? 
10$ NO 

4 3 ASCIZ °* DT="° 
ARSDT ,-(6) ;PUT @RSDT ON STACK 
3 TYPE STACK IN OCTAL 
art sPRINT MN? 


2-t2 ;-ASCIZ ‘* MR="" 

@RSMR , ~ (6) [PUT @RSMR ON STACK 
; TYPE oe IN OCTAL 
016134 11$: A al :PRINT LA? 


TDONE :NO 
3 ASCIZ °° LA="° 


nie Oe 
@RSLA,~(6) [PUT @RSLA ON STACK 
T Aig STACK IN OCTAL 
001126 : BIT #B1T12,FLAG2 ;POWER FAIL TEST? 
BN RETT 


;YE 
014722 oste ; ASCIZ Hii pled ag rr. 
001006 MOV PCNT+2,~-(6) [PUT PCNT+2 ON STACK 

7 TYPE STACK IN OCTAL = SUPRESS 
001000 177570 IT = i ;LOOPING ON ERROR? 


:NO 
014754 Pa rs 5><12> 
=! eae ‘DROP D IVE? 


:NO 
UNNUM , R4 7GET UNIT # 
PC,GETERR :GET ERRORS 
WRITER,READER ;ADD THE ERRORS 
READER ,WCERR 


BRARARRRERW 
WONAUSWRO”O 


aleabealealvalvaleabealeal al ae ae 
WDONAUSWN—O 


SELEALATSS 


ce cee ee cee ce ae ce cc ced ce a ec ce cc ce ce ce ce ce ce a ce cee cd ce ce cd ed ce cet ee ed ed ed 
Nw 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
21 


N 
Wo 


DROP DRIVE? 
;NO 


:DROP DRIVE 
: ASCIZ Re 5><12>" vacrees UNIT ** 
UNNUM ON STA 


STA 
STYPE STACK IN OCTAL ~ SUPRESS 


Mononons 
Ss 
JHINT 


,CRLFLF 

DROP ,R3 :GET DROPPED UNITS 
UNITSV,R4 :GET ALL DRIVES 
R3,R4 _ DRIVES DROPPED? 


:NO — DRIVES 
@4BEGIN [RESTART TEST 
001132 : ~ A OPERATOR SELECT PATTERN 


SLRARAVLS Bos 
jelelelelelelelelele) 
a ae ceed ad aed cd ad eed ed 


PPA AAAI 
SRSRVOR 


001142 PATNU NO CLEAR IT 
006154 3$: J Q#EXTPPR “GET NEXT DRIVE 


— 2 SY I 


POPOMINMNOMN NN NNN 
Go 
Ye) 


ah cad cad oy eae cad and ed oe ed 
SWWRN- OO 
ox % 
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CERSBC.P11 14-AUG~78 08:29 $DONE - BELL AND SCOPE ROUTINE SEQ 0068 

2190 ;ROUTINE TO RESTORE LOADER 

2191 015142 013705 015166 RLDR: MOV LDR1,R5 GET FIRST ADDRESS OF WHERE LOADER IS 

2192 :TO BE RESTORED 

2193 015146 012704 017500 MOV #17500 ,R4 ADDRESS WHERE LOADER IS STORED 
© 2196 015152 012702 000155 MOV #155,R *;WORD COUNT 

2195 015156 012425 1$: MOV (R4)+,(R5)+ RESTORE 

2196 015160 005302 DEC R2 

2197 015162 001375 BNE 1$ 

2198 015164 000000 HALT ; DONE 

rakes 015166 017500 LDR1: .WORD 17500 FIRST ADDRESS WHERE LOADERS ARE SAVED 

2201 172100 PARCSR=172100 

2202 000114 PARVEC=114 

2203 015170 012737 015262 000114 .MAMK: MOV #.PARSRV ,@#PARVEC 

2206 015176 012737 000340 000116 MOV #340, a#PARVEC+2 ;SET PRI LEVEL TO 7 

2205 015204 013746 000004 MOV O44 ,~ (SP) SAVE CURRENT ERROR VECTOR 

2206 015210 013746 000006 MOV a6 ,~ (SP) SAVE PRIOITY LEVEL 

2207 015214 012737 000004 MOV 6,04 

2208 015222 012737 000002 000006 MOV #RTI a6 

2209 015230 012700 172100 MOV #PARCSR ,RO :GET FIRST CSR ADDR 

2219 015234 012702 00C001 MOV #1,R2 

2211 015240 012720 1 1$ MOV #1,(RO)+ SET ACTION ENABLE IF AVAILABLE 

2212 015244 006302 ASL Re ;SHIFT AVAILABILITY INDICATOR 

2213 015246 103374 BCC 1$ 

2214 015250 012637 000006 MOV (SP) +,a46 RESTORE ERROR VECTOR PRIORITY 

2215 015254 012637 000004 MOV (SP) +, a4 AND INTERRUPT VECTOR 

2216 015260 900207 RTS PC 

sit PARITY MEMORY TRAP 

2219 015262 -PARSRV: 

2220 015262 104402 015266 TYPE este 3 -ASC1Z iy ay xf PARITY ERR"' 

2221 015304 052737 004000 001126 BIS #B1T11,FLAG2 ;SET ERROR FLAG 

2222 015312 104402 000757 TYPE -CRLFLF 

2223 015316 104402 015322 TYPE pete 3 -ASCIZ ‘HIER= ° 

2224 015332 013746 177742 MOV HERADD , = (SP) 

2225 015336 104404 TYPEO 

2226 015340 104402 015344 TYPE ee%e ; ASCIZ '* LOER="" 

2227 015354 013746 177740 MOV LERADD ,~(SP) 

2228 015360 104404 TYPEO 

2229 015362 104402 015366 TYPE Th 4 ;-ASCIZ ** ME REG="" 

2230 015400 013746 177744 MOV MEMERR , ~ (SP) 

2231 015404 104404 TYPEO 

2232 015406 032737 000010 001126 BIT #BI1T3,FLAG2 WERE WE COMPARING DURING ERROR? 

2233 015414 001422 BEQ 13$ 3NO 

22 015416 104402 015422 TYPE a :-ASC1Z ** ADDR="* 

2235 15432 005737 001216 TST MMAVA :1S MEM MGMT ON? 

2236 015436 001406 BEQ 12$ :NO 

2237 015440 013746 177776 MOV PS,-(6) :GET 

2238 015444 013746 001154 MOV SAVE ,~(6) iGET VIRTUAL A ADDR 

2239 015450 104412 TYPEA :CONVERT TO PHY AND TYPE 

2240 015452 000403 BR 13$ ; CONT 

2241 015454 013746 001154 12$: MOV SAVE ,~(6) :GET ADDR 

2242 015460 104406 TYPES sTYPE IT 

2243 015462 032737 100000 177570 13$: BIT #B1T15,SWR SHALT ON ERROR? 

2244 015470 001401 BEQ Ps 3NO 

2245 015472 000000 HALT iYES 


E 6 
CERSB=C_RH70=RSO03 DATA AND RELIABILITY TEST MACY11 30A(1052) 18=AUG-78 08:26 PAGE 56 
CERSBC.P11 14-AUG=78 08:29 SDONE - BELi AND SCOPE ROUTINE 


2246 015474 012706 000500 1$: MOV #500,SP sRESET STACK 
2247 015500 000137 003212 JMP EXMF LG RESTART TEST 
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CERSBC. 14-AUG-78 08:29 $TYPE = TTY TYPEOUT ROUTINE SEQ 0070 


. SBTTL $TYPE = TTY TYPEOUT ROUTINE 


:THIS ROUTINE IS USE To TYPE ASCII MESSAGES ON THE TTY. THE 
CALL CAN BE_IN ONE OF 3 FORMS: 1) ‘TYPE ADR YPES THE 
MESSAGE STARTING iN’ LOCATION "'ADR:'', 2) “TYP CHAR - TYPES 
[THE ASCII ''CHAR'', AND 3) ‘PRINT <<15><12>' MESSAGE S = TYPES 

[THE MESSAGE WHICH IS INLINE ASCII. THE FILLER CHARACTER WHICH IS 
: TYPED AFTER A LINE FEED IS IN FILCHR AND THE NUMBER OF FILLERS 

. + ~ 


010446 o TYPE: See | R4 
MO 


AVE R5 
000004 a4 (6 ‘ey ADDRESS 19 BE TYPED 
177400 #177400, R5 is IT A TYPEM? 


000004 4(6),R5 :GET ADDRESS OF CHARACTER 
: (R5) ; TERMINATOR? 


2$ :GET OUT IF SO 
000012 #12,(R5) :1S THE CHAR A LINE FEED 
4$ :NO = GET OUT 


001015 FILCHR+1 ,R4 GET THE FILL COUNT 
001014 : FILCHR,@TPB TYPE A — 
163240 ity [DONE 


R4 


5$ UNTIL 0 
163230 : MOVB (R5)+,a1TPB ;LOAD AND TYPE THE CHARACTER 
163222 aTPS :1S_THE PRINTER READY 
74 [WAIT UNTIL IT IS 
1$ GET THE NEXT CHARACTER 
2$: a4 (6) ,-(6) 7GET ADDRESS TO BE TYPED 
000006 #2 ,6(6) ZADD 2 TO THE ADDRESS 
4a’ e866) 313 17 .¢é? 


:NO 
000002 ADD 2 ws hig ADDRESS 
000001 . :BACK O AN EVEN BYTE 
000004 e ZRESTORE ADDRESS 

RESTORE R5 


(6)+.R4 SRESTORE R4 
RETURN © 


jelelelelelelelelelelelelelo) 
J Ss Ss 35 Ss ss 
MAA AIT UIT 

ag alain naar 


Ww 
vi 
o 





CERSB=C_RH70-RSO3 DATA AND RELIABILITY TEST 


CERSBC.P11 


01 
016010 
016012 


14=AUG=78 08:29 


032737 
001045 


10 
01 
0057 
00 
01 


000001 


040000 


000004 


004000 
001001 
016012 


001000 


001001 


001010 


177570 


000004 


177570 


001001 
001001 


177570 


177570 


cettoe 30A(1052) 


SCOPE = SCOPE LOOP 
$SCOPE ~ SCOPE LOOP HANDLER 


; THIS ROUTINE HANDLES THE ITERATIONS, LOOPING, ERROR 
ZLOOPING, AND Ti DISPLAYING OF THE TEST NUMBER. 
:"SCOPE' IS PLACED BETWEEN EACH SUBTEST IN THE TEST AND 
ZRECORDS THE STARTING ADDRESS OF THE SUBTEST IN ‘LAD:"" 


. SBTTL 


-SCOPE: BIT 


4$: CMP 


3$: BIT 


2$: 
~SVLAD: 


KIT: INCB 
-OVER: MOV 


TIMES: —1 


#SW14 , @ASWR 
-KIT 


3$ 

a4 ,-(6) 

#4$ a4 

a4#177060 
(6)+, 044 

. SVLAD 
(6)+, (6)+ 
(6)+,a44 

KIT 

yewit, a4SwR 
. SVLAD 
ieNTe] 

2$ 

TIMES, ICNT+1 


KIT 
tea ~ICNT+1 

(6) ,LAD 

ICNT a#DISPLAY 


ICNT+1 
pr. ~@ADISPLAY 


»SVLAD 
LAD; (6) 


G 6 
ne ap 08:26 PAGE 58 
HANDLE 


;LOOP ON TEST? 
sLOOP ON TEST IS SET 


ROR OR? 
:POP STACK INTO a¥ 
:NO oer - GO TO NEXT TEST 
POEs 


; ERR 
SKILL ITERATIONS 
YES = KILL ITERATIONS 
:FIRST ONE? 
BRANCH IF FIRST 
; DONE ? 


‘BRANCH IF NOT 
ZFIRST ITERATION 
: COUN 


SS 
DISPLAY TEST NO. AND ITERATION COUNT 
;RE TURN 


ZINC THE ITERATION COUNT 
SSET UP DISPLAY 

: IRs ONE ? 
‘FUDGE RETURN ADDRESS 
FIXES PS 


ZRUN 7 TIMES 


SEQ 0071 


r 
CERSB=C_RH70-RSO3 DATA AND RELIABILITY TEST a A 30A(1052) "Bc AUG-78 08:26 PAGE 59 
CERSBC .P11 14-AUG=78 08:29 $HLT - HLT ROUTINE (ERROR TYPEOUT) 


- SBTTL $HLT = HLT ROUTINE (ERROR TYPEOUT) 


: THIS ROUTINE PRINTS OUT oe ie are STARTING WITH THE 
; ADDRESS OF THE ‘HLT’’. IT ALSO COUNTS THE NUMBER OF E 


RROR, AND INHIBIT AN OPTIONAL ARGUMENT 
 (HLT#3) WILL BE PLACED IN ‘‘.HLTCT:'* FOR ADITIONAL TYPEOUTS. 


001002 «HLT: ERR : INC_THE ERROR COUNT 
020000 HSU anu ;SKIP awn IF SET 


016034 


=. 

(6) ,HLTADR 
#2,HLTADR 
@HLTADR, .HLTCT 
HL TADR,-(6) 


AD. 
: TYPE STACK IN OCTAL 
aete ;-ASCIZ ' 
PC,RSREG G0 TO ae inn — ROUT INE 
@4SWR SHALT ON ERR 
+4 sates IF CONTINUE 
HALT ON ERROR! 
177570 ASWI , BASWR CHECK FOR INHIBIT LOOP ON ERROR 
$ :SKIP_IF LOOP ON ERROR 
ICNT+1 3h a ITERATION COUNT 
015764 : KIT [LOOP ON TEST UNTIL NO ERRORS 


HLT ARGUMENT 


SEQ 0072 
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CERSB=C_RH70-RSO3 DATA AND RELIABILITY TEST MACY17 30A(1052) 18-AUG-78 08:26 PAGE 60 
CERSBC.P11 14-AUG-78 08:29 SOCTAL = OCTAL TYPEOUT ROUTINE SEQ 0073 


. SBTTL SOCTAL = OCTAL TYPEOUT ROUTINE 


: THIS ROUTINE IS USED TO TYPE AN OCTAL NUMBER ON ao are IT WILL TYPE 
ALL_6 CHARACTERS, SUPPRESS LEADING ZEROES, OR TYPE T 
16 BITS. IT IS CALLED VIA THE TYPOCT, TYPBIT, OR TYPOCS MACRO'S. 


012737 170101 016324 .TYPEB: MOV “ny? SET BIT FLAG AND 16. CHARACTER COUNT 
14 :NOW TYPE IT IN BIT FORM 
000001 016324 .TYPEO: MOVB ae 4 FILL SWITCH 


BR 
016324 - TYPES: CLR ;SUPRESS LEADING ZERO'S 
177772 016325 prt MOVB #6, .PRe1 ;SET COUNT 


:PUSH R4 ON STACK 
PUSH_R5 me _ 
000010 7GET THE DAT 
016326 i> 7 SET POINTER ae — ASCII CHAR. 


000100 016324 

;YES = SKIP 2 ROTATES 
ROTATE BIT INTO C 
sPACK_IT 


K 
ROTATE BIT INTO C 
sROTATE BIT INTO C 
sPACK_IT 
‘ep IT ZERO? 


. KIP_INC 
016324 ° >SET FILL SWITCH 
016324 . sie ertitt SWITCH 


: SKIP 
000060 ISB . MAKE INTO ASCII CHAR 
016325 -PR+1 SINC COUNT 
~PRL REPEAT 
016326 . sEMPTY BUFFER? 
;SKIP IF 2 44 
000060 


AD 1 ZERO 
CLRB (4) =NULL TERMINATOR 
016326 . TYPE IT 
[POP STACK INTO R5 
; POP STACK INTO R4 
000002 000004 :GET RID OF 
(4) DATA WORD 
016322 000002 ;RETURN 


016324 PR: BL ;COUNT, SWITCH, AND OUTPUT BUFFER 


—_ —2 — -_— 
2839855898338 
a Eee Le 
NOWW 
x NNR SS BOE 


Ssa8ss 
Ww ° 
ine) 


Ww 
Mm 
VIG 
ai 





CERSB=C_RH70-RSO3 DATA AND RELIABILITY 


CERSBC.P11 


016350 
016356 
016364 


016502 
016504 


14-AUG-78 08:29 


lelelelelelelelelelea) 
al ca ea aa cn ct al etd a a 
Oo 
Mm 
a 
oO 


016476 
000340 


016350 
00340 


000026 


pees 
000122 


000072 


000024 
900026 


6 
TEST MACY11 30A(1052) “1 8AUG-78. mF 26 PAGE 61 
$SPOWER - POWER DOWN AND UP ROUTINES 


- SBTTL SPOWER - POWER DOWN AND UP ROUTINES 


is IS_THE POWER FAIL ROUTINE WHICH WILL SAVE ALL 
THE GENERAL REGISTERS AND USER te _ THEN 
‘WAIT FOR POWER TO GO DOWN AND BE RESTOR 
4M THERE ISN'T ENOUGH TIME FOR SAVING ALL THE REGISTERS, 
THE PROGRAM WILL HALT AT '.ILLUP’. 


-POWER: MOV #.ILLUP,@.PUVEC 4-H FOR FAST UP 
MOV #340, a. PUVEC$+2 : 0:7 
MOV RO,-(6) ay RO ON STACK 
MOV R1,-(6) “PUSH R1 ON STACK 
MOV R2,-(6) ‘PUSH R2 ON STACK 
MOV R3,-(6) ‘PUSH R3 ON STACK 
MOV —RS,-(6) zPUSH R4 ON STACK 
MOV R5,-(6) * PUSH R5 ON STACK 
MOV ef - SAVR6 sSAVE SP 
MOV #.POWUP, @.PUVEC SET UP VECTOR 
HALT ‘WAIT FOR PF 
~POWUP: MOV . SAVR6, SP :GET SP 
CLR R1 ’ sWAIT oe + ine TTY 
1$: INC R1 “WAIT FOR THE 
BNE 1$ ;OF WORD 
MOV (6)+,R5 *POP STACK INTO R5 
MOV (6) +,R4 sPOP STACK INTO R4 
MOV (6)+,R3 zPOP STACK INTO R3 
MOV (6)+,R2 ;POP STACK INTO R2 
MOV (6)+,R1 sPOP STACK INTO R1 
MOV (6)+,RO ‘POP STACK INTO RO 
MOV 4. POWER a#24 4: + UP THE POWER DOWN VECTOR 
MOV #340, 0426 :PRIO:7 
TYPE +2 :.ASCIZ <15><12>' POWER'' 
JMP tT ]MUP + IMP TO USER ADDRESS 
~!LLUP: HALT : THE POWER UP SEQUENCE WAS STARTED 
BR .72 ; BEFORE THE POWER DOWN WAS COMPLETE 
.SAVR6: 0 ;PUT THE SP HERE 


-PUVEC: 24,26 :POWER UP VECTOR 


SEQ 0074 


6 
CERSB=C_RH70-RSO3 DATA AND RELIABILITY TEST MACY11 30A(1052) * 1B°AUG=78 A at 26 PAGE 62 


CERSBC.P11 14=AUG=78 08:29 $TYPEA = 18 BIT ADDRE SEQ 0075 
2463 .SBTTL STYPEA - 18 BIT ADDRESS TYPER 

2445 : THIS ROUTINE TAKES, 2 ARGUMENTS OFF THE STACK (OLD 

2446 :SP AND ADDRESS) USING THE MEMORY MANAGEMENT REGISTERS, TYPES 
2447 : THE ADDRESS SUPPLIED IN 18 BIT FORM. THIS ROUTINE IS LINKED 
2448 ‘ [VIA THE 'TYPADR' MACR 

2449 

2450 016510 .TYPEA: 

2451 016510 010446 MOV R4,-(6) :PUSH R4 ON STACK 

2452 016512 010546 MOV R5,-(6) ‘PUSH R5 ON STACK 

2453 016514 016605 000012 MOV 12(6) ,R5 *R5 = OLD PS WITH PREVIOUS MODE 
2454 016520 016604 000010 MOV 10(6) -R& =R4 - ADDRESS TO BE DECODED AND TYPED 
2455 016524 016666 000006 000010 MOV 6(6),10(6) “MOVE 

2456 016532 016666 000004 000006 MOV 4(6),6(6) : DOWN 

2457 016540 016666 000002 000004 MOV 2(6) ,4(6) ‘FOUR 

2458 016546 012616 MOV (6)+, (6) WORDS 

2459 016550 010346 MOV R3,-(6) :PUSH R3 ON STACK 

460 016552 305 SWAB [GET THE 

2461 016554 006005 ROR 5 :2 PREVIOUS 

2462 016556 006005 ROR R5 :MODE BITS 

2463 016560 006005 ROR R5 Z INTO POSIT ION 

2464 016562 042705 177771 BIC #177771 ,RS USE AS AN OFFSET 

2465 016566 016505 016742 MOV . SATAB(5) ,R5 : RS = SPACE ADDRESS FOR MM 
2466 016572 010403 MOV R4,R3 [R3 - REGISTER OFFSET 

2467 016574 042704 160000 BIC #160000,R4 [CLEAR THE MM REG SELECT BITS 
2468 016600 000303 SWAB eR [NOW MAKE 

2469 016602 006003 ROR R3 [MM REG 

2470 016604 006003 ROR R3 ‘SELECT BITS 

2471 016606 006003 ROR R3 : INTO AN 

2472 016610 006003 ROR R3 ‘OrFSeT 

2473 016612 042703 177761 BIC #177761,R3 [CLEAR THE JUNK BITS 

2474 016616 060305 ADD R3,R5 ‘ADD THE OFFSET TO THE TABLE 
2475 016620 011505 MOV (55 .R5 [GET THE ISAR DATA 

2476 016622 005003 CLR R3 

2477 016624 006305 ASL R5 :THIS IS 

2478 016626 006103 ROL R3 

2479 016630 006305 ASL R5 :TO SHIFT 

016632 006103 ROL R3 

2481 016634 006305 ASL R5 ;THE SEGMENT 

2482 016636 006103 ROL R3 

2483 016640 006305 ASL R5 s ADDRESS 

2484 016642 006103 ROL R3 

2485 016644 006305 ASL R5 AN IT 

2486 006103 ROL R3 Ama 7m 

2487 016650 006305 ASL R5 *POS] 

2488 016652 006103 ROL 3 sWITH iN cout AINING 

2489 016654 06040 ADD R4 RS :THE UPPER 

2490 016656 005503 ADC R SAND R5 EONTATNING 

2491 016660 006305 ASL R5 *THE 16 BIT ADDRESS 

2492 016662 006103 ROL R3 THEN SHIFT FOR TYPING 

2493 016664 010346 MOV R3,-(SP) 

2494 016666 009241 CLC 

2495 016670 006016 ROR (SP) 

2496 016672 000241 CLC 

2497 016674 006016 ROR (3?) 

2498 01 


6676 000241 Cie 


CERSB=C_RH70-RSO3 DATA AND RELIABILITY TEST 
CERSBC .P11 14-AUG-78 08:29 


016742 


177770 
016326 


000060 
016327 
175401 


016270 


016326 
016324 


. SATAB: 


MACY11 30A(1052) 


L 6 
18-AUG-78 08:26 PAGE 63 


$TYPEA - 18 BIT ADDRESS TYPER 


172340 


(SP) 
#177770 R3 
ab: “Peg 
i pect , “PR 


(6)+,R3 
«PRL 


GET THE FIRST Ae t-* FROM R3 
E_ IT INTO A NUMBER 


MAK 
FUDGE IN THE POIN 


TER 
SAND THE FLAGS (FILL & 5 BYTES) 
;POP STACK INTO R3 

:DECODE AND TYPE THE REST 


;KISARO 


SEQ 0076 





M 6 
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CERSBC .P11 14-AUG-78 08:29 STRAP = TRAP HANDLER SEQ 0077 
g210 - SBTTL STRAP = TRAP HANDLER 
2512 ; THIS ROUTINE a tai A_TRAP CALL AND JUMPS TO THE APROPRATE 
2513 ; SUBROU OUTINE. THE CALL IS A _‘'TRAP+N"* WHERE N IS A maa OF 2. 
2514 ;THE ‘SET’ MACRO WILL CREATE THE TABLE NEEDED. IT HAS TO 
$212 FOLLOW THIS MACRO. 
2517 016744 011646 . TRAP: MOV (6) ,~(6) GET ADDRESS OF TRAP +2 
2518 016746 162716 000002 SUB #2, (6) ;MAKE_IT ADDRESS OF TRAP 
2519 016752 017616 000000 MOV a(6), (6) 7GET ne INSTRUCTION 
2520 016756 062716 112364 ADD #. TRP+2-TRAP,(6):GET DATA AND MAKE IT AN OFFSET 
$25} 016762 013607 -TRP: MOV a(6)+,PC :GO TO PROPER SUBROUTINE 
25235 016764 015642 - SCOPE :SCOPE = TRAP+0 (104400) 
2524 016766 015504 - TYPE i TYPE = TRAP+2 (104402) 
2525 016770 016146 - TYPEO :TYPEO = TRAP+4 (104404) 
2526 016772 016156 . TYPES :TYPES = TRAP+6 (104406) 
2527 016774 020556 . TYPED :TYPED = TRAP+10 (104410) 
2528 016776 016510 -TYPEA :TYPEA = TRAP+12 (104412) 
2 017000 006212 -ERCLR sERCLR = TRAP+14 (104414) 
25 017002 234 - DKCMD sDKCMD = TRAP+16 (104416) 
2531 017024 -RDOCT ;RDOCT = TRAP+20 (104420) 
2532 017142 -RDLIN sRDLIN = TRAP+22 (104422) 
2533 017010 020524 -UPDAT ; T = TRAP+24 (104424) 
25 17012 342 -CLRDV :CLRDV = TRAP+26 (104426) 
2535 017014 014014 LOGW ;LOGW = TRAP+30 (104430) 
2 017016 01402 LOGR ;LOGR = TRAP+32 (104432) 
2537 017020 014032 -LOGWC sLOGWC == TRAP+34 (104434) 
2538 017022 014044 -LOGC ;LOGC = TRAP+36 (104436) 


6 
CERSB=C_RH70-RSO3 DATA AND RELIABILITY TEST MACY11 30A(1052) 18 AUG-78 08:26 PAGE 65 
CERSBC.P11 14-AUG-78 08:29 S$RDOCT = OCTAL INPUT ROUTINE SEQ 0078 


- SBTTL $RDOCT = OCTAL INPUT ROUTINE 


THIS ROUTINE CALLS RDLIN, INPUTS A LINE FROM THE TTY AND CONVERTS 
S1T INTO AN OCTAL NUMBER WHICH IS THE FIRST WORD ON THE STACK. 


017024 .RDOCT: MOV (6) ,=(6) :MOVE THE PC 
000004 000002 MOV 4(65,2(6) ‘MOVE THE PS 
;FUSH R1 ON STACK 


;READ A LINE INTO INPUT 
CL R1 INIT DATA_WORD 
017246 ZINIT POINTER 


000060 


. e f Ss 
000067 SCHECK FOR 7 OR LESS 
3$ ERROR = GREATER THAN 7 
POSITION 
‘FIRST BIT 


GET 
; SECOND BIT 
> THIRD BIT 
Lg LO 
000012 : MO SAVE THE RESULT 
:POP STACK INTO R3 


POP STACK INTO R2 
(6)+.R1 :POP STACK INTO R1 


104402 017134 ; et? :ASCIZ ''2''<15><12> 
017140 000740 R L$ ‘TRY AGAIN 
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CERSB=C_RH70=RSO3 DATA AND RELIABILITY TEST MACY11 30A(1052) oe 08:26 PAGE 66 
CERSBC .P11 14-AUG-78 08:29 SRDLIN = TTY INPUT ROUTI 


~ SBTTL SRDLIN = TTY INPUT ROUTINE 


THIS ROUTINE INPUTS A LINE TERMINATED BY A RETURN INTO ADDRESS 
INPUT AND RETURNS A LINE FEED, THE BUFFER HAS A NULL TERMINATOR 
: INSTEAD OF THE RETURN. RUBOUTS ARE HANDLED BY RETYPING 

THE LINE. BUFFER OVERFLOW ERRORS LIKE A RUBOUT. 


017142 -RDLIN: MOV R5,~(6) 3 SAVE R5 
0 017246 1$: MOV #INPUT .R5 GET ADDRESS 
017266 2$: #INPUT+16. “RS: BUFF 


E 
177560 3m 77560 
BPL 


177562 MOVB 59177562, (5) ; 

000200 4390. 2 GET RID OF JUNK 

000177 MPB 71S _IT A RUBOUT 
§$ SKIP IF NOT 


017206 p :ASCIZ ''2''<15><12> 
BR ZAP THE BUFFER AND LOOP 
SET UP FOR TYPING 


ECHO IT 
[CHECK FOR RETURN 
BN ;LOOP_IF NOT RETURN 
177777 ;ZAP_RETURN (THE 15) 
000012 TYPE A LINE FEED 
MOV [RESTORE R5 
017244 000002 RETURN 


017246 INPUT: .BLKB ; ZTTY INPUT AREA . 
917266 00002 ERTAB: .BLKW : 
017326 OUTBUF: 0 


000000 
017216 
000015 





7 
CERSB=C_RH70-RSO3 DATA AND RELIABILITY TEST MACY11 30A(1052) "18-AUG-78 08:26 PAGE 67 
CERSBC.P11 14-AUG=78 08:29 SRDLIN = TTY INPUT 


THIS SUBROUTINE HAS THE CALL 

; JSR PC ,MMUSE 

“WHERE XXX _IS _ EXECUTABLE ONE WORD INSTRUCTION 
M MANAGEMENT IS USED ON THE th ae 


;THE DESTINATION FIELD MUST BE 
:NO OTHER FORM IS ALLOWED 


017330 005737 001024 MMUSE : 
0173 1415 
017352 


017346 R 
017352 000000 “$: - WOR 0 = CONTAINS gage a JUST AFTER 


E JSR R5 
017354 032701 100000 #190000,R 
017360 001403 

017362 062737 000200 172346 D #200 ,KIPAR3 

017370 000205 2 


:THIS SETSUP MEM MANAGEMENT FOR A FOLLOWING INSTRUCTION 
7 CALL JSR PC,MMPSET 


017372 001024 MMPSET: Ma TEMP2 


2$ 
001026 TEMP3,-(6) 
172346 KIPAR 
000200 172346 1$: > b pases 


1$ 
(6)+ 
017424 000207 " 2B: PC 


017426 : : -CRLFLF 


ost 3 -ASCIZ ‘TIMEOUT PC="" 
#2,-(SP) 


017460 


:NOTE FOR PROGRAMMER*®******* PROGRAM AT THIS POINT CAN NOT EXCEED A PC OF 17500**«*« 
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CERSB=C_RH70-RSO3 DATA AND RELIABILITY TEST MACY11 30A(1052) ° 1 e-AUG-78 08:26 PAGE 68 
CERSBC .P11 14-AUG=78 08:29 S$RDLIN = TTY INPUT ROUTINE 


= 20000 

sNOTE ALL THIS CODE GETS DESTROYED WHEN PATTERN IS WRITTEN 
ROUTINE TO SAVE ABS_LOADER 

LDR: MOV #17776,R0 


017776 
020024 


000004 #234 :SET TIME OUT TRAP VECTOR 
000340 000006 MO #340 6 


-72 
(SP)+, (SP)+ 
6,4 


000006 000004 
00006 


:POINT RO BACK TO LOADER 
: SAVE FOR neat ROUT INE 


a R2 WORD COUN 
017500 WHERE LOADER IS TO BE STORED 
1S ged (R3)+ STORE LOADER 


1$ 
PC RETURN 


; 7A- PORT SIZE 


001126 SIZZAP: BIS #BIT13,FLAG2 ;SET MAPPING BIT 
JSR PC ,DRVENO ‘FIND DRIVE 
001230 #2.WORK1 ‘START WITH ONE 4K BUFFER 
#1. STAMEM ‘FIRST 4K BANK 
#57476, BUF “GET STARTING ADDR. 5K 
001134 #1 -WRDCT “LOAD WC 


[LOAD DA 

0201 160670 #40, aRSCS2 ZCLEAR ALL RS REG 

020144 013777 001164 160662 MOV UNNUM,@RSCS2 GET DRIVE # 
DY I III III IOI III IOI IIOIOIIOIIOII TOO TO IOI TOA IAS AANA AS AM 
FREER KEKE ERK REE EERE REEKKEE EK 
LKR ERE REE REE KERR EEE EKER EKER EERE EK EE 
DC 7 ROIS III IUIIIIICIIIOIOISIUIOIOIOIOIIOIOI TOIT OOS OTA IANS 
DARKER ERE REKEREEEREKKERERE REE ERA EERE REEREARERE EK E 
FREE REE REE REE EERE ERE EEK EEE EERE EEK EE 
DOC Z 8 IRIE IOI IOI TOIT IORI TOROS IOR OASIS ASIANS ASIANS ASI ANS ANAM 
FERRE ERE ERE REE ERE REE RRR ER EERE ERE RE 


001176 MO ;DO A ERITE 
4$: sNOW 
160640 1$: :DONE YET? 


BP 1 ; 
004000 160632 #4000, aRSCS2 :D1D NEM SET? 
160622 ‘ QR5¢S1 ZANY ERRORS? 
000006 001112 #6,SIZEAP :GET SIZE OF BUFFER 
020326 JMP a4S1ZERR OR USER IF HE WISHES IT 
: ie GET NEXT 4K BANK 


BR ST BANK 
001230 $121: wo? 1 DEC SIZE OF BUFFER 
001230 001112 WORK] ,SIZEAP LOAD SIZE OF A BUFFER 


020152 


So 
—O 


001026 
000061 


o-—--O© 
SAR 


Ss 
WN 
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CERSB=C_RH70-RSO03 DATA AND RELIABILITY TEST MACY17 30A(1052) yay 08:26 PAGE 69 
CERSBC.P11 14-AUG-78 08:29 SRDLIN = TTY INPUT ROUTINE 


TV [RRR TREE ERE EER EERE REE ERR ERR RRR 
FAROE EERE EEEEEERREREEEEREEEREREREREREEREREEREEREREERREEREKERKEEE 
LAER EAR REE EAEEEEREAEEREEEREEEEREEEEEERAEREREREEEREEEEEEEKEERKERKEEE 
TV ZR IRE EERE REE REE E EERE 
FERRER EERE REAR RE ERE KEE RERREEREAEEEEEEEEREKEREE EE 
FREER REE RRR EERE EEE EERE RARER EERE 
TV ZT REE REE REEEEEERERER e 
FREER ERE ERE 


2722 

2723 020242 013737 001230 061022 MOV WORK1 , TEMP1 

2724 020250 104402 920254 ‘ TYPE +2 ; ASCIZ <15><12> "PORT -A= DATA BUFFER 4k TO" 
2725 020316 004737 020464 JSR PC, SIZPR 





ey 
CERSB-C_RH70-RSO3 DATA AND RELIABILITY TEST MACY11 ~~ Lag. 18-AUG-78 08:26 PAGE 70 
CERSBC.P11 14-AUG-78 08:29 SRDLIN = TTY INPUT ROUTINE SEQ 0083 


000137 020444 : ;GET OUT NO -B- PORT 
920332 +2 ‘eh <15><12>'WILL_NOT CONTINUE TO SIZE MEMORY BECAUS 
000006 MO PROGRAM A BUFFER 


#6, SIZEBP A 

'BA'D You CAN ENTER CONVERSATION MODE 
000001 00 iplto. FLAG2 “BEEN HERE BEFORE FLAG 
020000 WBIT13,FLAG2 § :CLEAR MAPPING FLA 

7OR GO TO DER 

020000 : WBIT13,FLAG2 § :CLEAR MAPPING FLAG 
000002 ‘SET BEEN HERE FLAG 
001462 ALM ‘CAL BUFFER AND WC 


INIT SETUP 


;SETUP FOR BANK py 
;SETUP FOR SIZE FO MEMORY 
:1S THIS THE RIGHT SIZE? 


“PUT R2 ON STACK 
s TYPE STACK IN DECIMAL 
020520 F ‘ 3; ASCIZ 'XK"' 
C SRETURN 


ADD 4K TO TEST ADDR. 


DOC Zk I III III II IOI IIIT IOI TOSI IOI TOTO A AAAS AA AAS AAACN 
FRR RRR RRR ERE REE REE REE RE KEE ERE EKER ERE EEE REE KK 
SK KREERERRKKRKRE EKER E ERE K EEE 
DOC ZI IOI IOI III IOI II RIOT ICICI OIC IOI OI ORI IA AA SAS ANASAS AISA SIAM 
FARRER ERE KR E REE EREEKEREEREREEKEEEEEKEKE EEK 
FRR RRR REE RE RERERREEEEREREREEEKEKEEKEEREEEEEEREEEKE EK 
DOC 7 9 te IIIT TORII III TO TAI AS ASAI ASASISASAISSI SISA SIS AN 
Caaaie tr ket eee sie eee ee 
020524 001230 “UPDAT: INC WORK 1 INC BANK # 
020000 001144 DD #20000, BUF [UPDATE BY 4k 
1$ BRANCH IF NO OVERFLOW 
001026 TEMP3 T INCREMENT FOR RSBAE 
620544 001026 160310 TEMP3 , ARSBAE 


020554 . YPED = TRAP+40 (104440) 
$TYPED - CONVERT ‘BINARY TO DECIMAL AND TYPE ROUTINE 


021004 . t #100040,.DSIGN ;SET BLANK SWITCH AND SIGN 
MO RO,-(6) ;PUSH RO ON STACK 
;PUSH R1 ON STACK 
;PUSH R2 ON STACK 
;PUSH R3 ON da 
5,7(6) [PUSH R5 ON STACK 
100040 021004 . 3 SET BANK swltC H AND SIGN 
000016 a 16(6) ,R° :GET DATA TO BE pees 


020556 
0205 


Ee MLO LOLelLelolele) 


000055 021004 
: ‘ZERO THE CONSTANTS INDEX — 
020774 . >SETUP THE OUTPUT POINTER 


ees 
MN 
33a 
Sow 
WON 





CERSB=C_RH70-RSO3 DATA AND RELIABILITY TEST MACY11 30A(1052) 


CERSBC.P11 14-AUG-78 08:29 $TYPED = CONVERT BINAR 


000040 
920764 


2$: 
3$: 


4$: 


021095 


177777 


000002 000004 
020774 


001750 000144 .DTBL: 10000. 


-DBLK: .BLKW 
-DSIGN: 0 


- END 


‘. ,(R3)+ 
-DTBL (RO) ,R1 
1,R5 


R2 
3$ 
R1,R5 
R2 


5$ 

.DSIGN+1 

7$ 

” ieee 
-DSIGN,-1(R3) 
#°0,R2 


‘0° 74 (6) 
(6)+, (6) 
, DBLK 


-1000.,100.,10. 


4 


18° AUGe78, efi 26 PAGE 71 


ECIMAL AND TYPE ROUTINE 
:SET THE FIRST CHARACTER TO A BLANK 
E NUMBER 


ONS TANT 
;FORM THIS BCD DIGIT 


BR IF DONE 
Z INCREASE THE BCD DIGIT BY 1 


. 
° 
. 


sADD BACK THE CONSTANT 
hie IF BCD DIGIT=0 
;FALL THROUGH IF 


0 
STILL "DOING LEADING 0'°S? 
BR IF YES 


;BR_IF NO 
2 YES--SET THE SIGN 


sMAKE THE BCD DIGIT ASCII 
;MAKE IT A SPACE IF NOT ALREADY A DI 


[PUT THIS CHARACTER IN THE OUTPUT BU 


JUST INCREMENT ING 
CHECK THE TABLE INDEX 
GO DO ay NEXT DIGIT 
:GO_TO EXIT 

GET THE LSD 

3G CHANGE TO ASCII 
7SET THE TERMINATOR 
:POP STACK INTO R5 


:POP STACK INTO R3 
;POP STACK INTO R2 
POP STACK INTO R1 
;POP ie INTO RO 


FUDGE DAT 

OFF STA cK 

[NOW TYPE THE NUMBER 
URN 


G 
F 


IT 
FER 





H 7 
ace tte DATA AND RELIABILITY TEST MACY11 30A(1052) 18-AUG-78 08:26 PAGE 73 


007352 
010544 


14-AUG-78 08:29 


CROSS REFERENCE TABLE == USER SYMBOLS 


1577 
20654 


8444 
580 


2020* 


1872 
1629 


1732 
1572 
1195 

973 
1903 
1324 


2687*  2760* 


1909 
1008* 1112s = 1113 





CERSB=C_RH70-RSO3 DATA AND RELIABILITY TEST 
14-AUG-78 08:29 


CERSBC.P11 


104416 


006422 
001149 


013752 
2204 


. 007760 
001132 


CROSS REFERENCE TABLE == USER SYMBOLS 


567 573 579 5914 
2171* 2172 
1716 
787 


1919 
1850 


971 


701* 
1839* 


2179 


1795 


489* 492s 494" 
637* 651* 681* 
52 803 80 


7 817 822 246 
1003* 104 1058 1067 1070s 


my 
MACY11 30A(1052) 18-AUG-78 08:26 PAGE 74 


1971 
1867 


1009 


929 
1854« 


498* 
708* 


887 
1103 


1795 


1915 


1077 
2689* 


9 
1151 


1847 


1964 


1153* 


1247 


1967 


1252* 
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CERSB=C_RH70=RSO3 DATA AND RELIABILITY TEST MACY11 30A(1052) ” 18-AuG-78 08:26 PAGE 75 
CERSBC.P11 14-AUG=78 08:29 CROSS REFERENCE TABLE == USER SYMBOLS 


1953* 
FLAG2 001126 


001222 
740 


957 


2318* 


NNNNNNNN 
MOMOMPONMPONNNoNy 


POMOMONMNNNNY 
KERRAAAAO 
RUORENSONR 


Nm 
oO 


1742* 2629* 2642% 2643* 


SN NN NNN NN NNN NNNN 
MOMONSMINNN NNN NM 
WWWWAWWWNWW 
SRS WO 
NMNOALNO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


8 NNN™N 
SSNNN NNNN 
ONWW 


636* 718« 798* 925% 2314* 2320 





CERSB=C_RH70-RSO3 DATA AND RELIABILITY TEST 


CERSBC.P11 


ARVE 
PASEL 


003762 


0 
017326 


172100 
000114 
007650 


14-AUG-78 08:29 


CROSS REFERENCE TABLE == USER SYMBOL 
718 732 


754 
952* 
1035 


1591 


9044 


748 


768 
1956* 1961 


761 
964 
1182* 


1655 


1051 


527 


871« 
26078 


K 7 
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789% 
968* 
1574 


10554 


790 
977 
1667* 


1719 


533 


793 
990 
1714 


* 


2235 


543* 


915 


796* 
991 
2065 


546 





CERSB=C_RH70=RSO3 DATA AND RELIABILITY TEST 
14-AUG-78 08:29 


CERSBC.P11 


014112 
177776 


0 
015140 


2024 


1859 
773 
20774 

610* 


21574 


10514 
1027 
13754 
2004 
502 
2169* 


21894 


L 7 
MACY11 30A(1052) 18-AUG-78 
CROSS REFERENCE TABLE == USER SYMBO 


563* 


2040* 


1913 
828 


1228* 


880* 881 


2041* 2049 


980 
1856* 


884* 


2160 


1025 
1859* 


08:26 PAGE 77 
LS 


919* 


1179 
1913s 


1042* 


1269 
2237 


1341 


1584 


1507 


1588 


SEQ 0089 


1518 


1618 





CERSB-C_RH70-R 
CERSBC.P11 


015142 
007620 


S03 DATA AND RE 
14-AUG-78 08:29 CROSS REFERENCE TABLE == USER SYMBO 


2113 


1120 
1883* 


1545* 


738 
1054 


M7 
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1123 1576 
1940s 26918 


1308 
1755 


1549* 1563* 


742 
2039 


2090 
2705 


1578* 


2703 


1579 





7 
CERSB-C alias DATA AND RELIABILITY TEST MACY11_ 30A(1052) "1 8-AUG-78 Fa 26 PAGE 
CERSBC .P11 14-AUG-78 08:29 CROSS REFERENCE TABLE -= USER SYMBOL 


SR3_ = 172516 
STABUF 006566 8 

STAMEM * 1201 1673 168& 2686* 
STATUS * 

STBCOM 

STMM2 

STTEST 

SWITCH 

SwWR ek 


5 8 
001034 1056* 1086 1644 
001026 99 65 867* 868 2762* 
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CERSBC .P11 14-AUG-78 08:29 CROSS REFERENCE TABLE == USER SYMBOLS 


—- 


8 
5 
9 
2 
3 
6 
1 
4 


oul N 
* * 


2018* 
463 1835* 


1240* 1271* 1273 1346* 
1236* 1238* 1251* 1296* 


626 , 857 932* 935* 936 1100 
1444* 1642 1959*  2688* 
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CERSBC.P11 14-AUG-78 08:29 CROSS REFERENCE TABLE == USER 


SENDAD 013776 
SEND1 014006 
. = 021006 


2364 
26594 
2792 


2115 


23184 


016414 242 
016324 2385* 24024 
016232 


goer" 25284 
2766 27674 





8 
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CERSBC.P11 14-AUG=78 08:29 CROSS REFERENCE TABLE == USER SYMBOLS 


-TYPED 020556 


“UPDAT 020524 





E 8 
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CERSBC.P11 14-AUG=78 08:29 CROSS REFERENCE TABLE == MACRO NAMES 


174 1750 1755 
6 68 


tat 


on 
PARLE BUCS vs 


TYPTXT 


& 


rmnron 

m= 
INTs} 
Worvodo 


$SCATCH 


Seco 2525 2526 2527 2528 2529 2530 2531 2532 2533 2534 2535 2536 





8 
CERSB=C_RH70-RSO3 DATA AND RELIABILITY TEST MACY11 30a(1052) ° ran naats 08:26 PAGE 85 
CERSBC.P11 14-AUG=78 08:29 CROSS REFERENCE TABLE == MACR 


ERRORS DETECTED: 0 
CERSBC .BIN, CERSBC..LST/CRF/SOL/Ni : TOC=DSKZ: CERSBC. SM. ,DSKZ:CERSBC.P11 
TIME: 7 11 1 SECONDS 


RUN-TIME RATIO: 58/20=2.8 
CORE USED: 21K (41 PAGES) 





